B 1 


SEQ 1 


IDENTIFICATION 


PRODUCT CODE: 

AC-T473A-MC 

PRODUCT NAME: 

CNRXDAO RX02 SS PERF EXER 

PRODUCT DATE: 

DEC 1982 

MAINTA1NER: 

DIAGNOSTICS SERVICES/ ISS 

AUTHOR: 

L. S. PRUCHA 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBLIITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOFTWARE ON 
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED COMPANIES. 

COPYRIGHT <C) 1982,1983 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADE MARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 

DEC DECUS DECTAPE 



PROGRAM HEADER AND TABLES 
TABLE OF CONTENTS 


MACRO Ml 200 15-DEC-82 13:50 


16- 772 PROGRAM HEADER 

16- 841 DISPATCH TABLE 

18- 858 DEFAULT HARDWARE P-TABLE 

18- 884 SOFTWARE P-TABLE 

19- 928 GLOBAL EQUATES SECTION 

21- 1080 GLOBAL DATA SECTION 

25- 1198 GLOBAL TEXT SECTION 

27- 1237 GLOBAL ERROR REPORT SECTION 

27- 1 245 - MOD U.SFT.ERR - ERROR REPORT 

27- 1255 - MOD U.PRT.ERR - PRINT ERRORS 

29- 1278 - MOD U.PRT.EC - PRINT UNIT ERROR CODE 

31- 1346 - ERROR PRINT CALLS/MSG CALLS 

33- 1379 GLOBAL SUBROUTINES SECTION 

33- 1458 - MOD U.1.0 - RANDOM GENERATOR 

35- 1484 - MOD U.A.1 - CONVERSION UUT CODE — > SUTPTR 

35- 1508 - MOD U.A.2 - CONVERSION SUTPTR — > UUT CODE 

37- 1529 - MOD U.DEV.REC - DEVICE READ ERROR CODE 

38- 1568 REPORT CODING SECTION 

40- 1657 - PRINT REPORT HEADER 

40- 1678 - PRINT REPORT DATA 

42- 1711 - PRINT READ/WRITE SECTOR COUNTERS 

44- 1742 - PRINT REPORT TYPE 1 

44- 1754 - PRINT REPORT TYPE 2 

44- 1764 - PRINT REPORT TYPE 3 

48- 1831 - STATISTICAL TABLES 

48- 1874 LOAD DEVICE PROTECTION 

50- 1885 INITIALIZE SECTION 

52- 1963 - MOD 1.1 - UNPACK HARDWARE P-TABLE S 

54- 2052 CLEANUP CODING SECTION 

56- 2089 AUTO DROP SECTION 

58- 2136 - TEST 0: ADDRESSING TEST 

60- 2179 - MOD U.SFT.TRP - 8US TRAP HANDLER 

62- 2199 DROP UNIT SECTION 

64- 2256 ADD UNIT SECTION 

66- 2290 TEST 1: RXO 2 SS PFRF EXERCISER 

66- 2294 MOD 0.0 - EXERCISE A SYSTEM 

69- 2390 MOD 1.0 - GET SYSTEM EXERCISE 

69- 2409 MOD 1.1 - GET EXERCISE CONDITIONS 

71- 2438 MOD 1.2 - GET SYSTEM TO EXERCISE 

71- 2505 - MOD 1.2.U.1 - GET PRINTABLE SYSTEM 0 UNIT # 

71- 2522 - MOD 1.2.U.2 - GET PRINTABLE SYSTEM 1 UNIT # 

73- 2536 MOD 1.2.1 - CK DRIVE AVAILABLE 

77- 2608 MOD 1.2. 1.1 - REFORMAT DRIVE DENSITY 

79- 2690 - HOD 1.2.U.3 - INITIALIZE ERROR 

79- 2703 - HOD 1.2.U.4 - INITIALIZE DROP 

79- 2710 - MOD 1.2.U.5 - INITIALIZE PRINT 

81- 2745 MOD 1.3 - GET EXERCISE 

83- 2765 MOD 1.3.1 - SET DATA PATTERN 

85- 2871 MOD 1.3.2 - SET TRACK SEQUENCE 

85- 3020 MOD 1.3.3 - CLEAR STATISTICAL TABLES 

87- "OD 2.0 - SCHEDULE SYSTEM EXERCISE 

89- 3138 MOD 2.1 - GET A TEST 

91- 3245 - EXERCISE/TEST TABLE 

93- 3303 MOD 2.2 - GET A DRIVE 

95- 3342 MOD 2.3 - EXECUTE DRIVE TEST 

99- 3466 MOD 2.3.1 - GET A SECTOR 

99- 355 j MOD 2. 3.1. A - SET SECTOR DONE 


SEQ 2 


C 1 



HARDWARE TESTS MACRO M1200 15-DEC-82 13:50 
TABLE OF CONTENTS 


SEQ 3 


D 1 


101 - 
105- 
:o7- 
10V- 
109- 
109- 
111 - 
113- 
115- 
117 - 
119- 
121 - 
121 - 
123- 
125- 
127- 
129- 
131- 
133- 
135- 
137- 
139- 
143- 
143- 
14 3- 
143- 
143- 
143- 
H5- 
1 A7- 
151- 


3567 

3639 

3673 

3748 

3762 

3792 

3820 

3838 

3920 

4037 

4070 

4183 

4198 

4227 

4256 

4289 

4322 

4380 

4495 

4549 

4574 

4584 

4685 

4692 

4699 

4710 

4722 

4729 

4753 

4829 

4935 


MOD 2.3.2 - GET A TRACK 
MOD 2.3.3 - GET A DRIVE FUNCTION 
MOD 2.3.4 - OUTPUT DRIVE FUNCTION 
MOD 2. 3. 4.1 - OUTPUT SINGLE WORD 
MOD U.2.3.4 - WATCH DOG TIMER 

MOD U.2.3/4 DELAY 
MOD 2.4 - EVALUATE TEST RESULTS 
MOD 2.4.1 - EVALUATE DATA 
MOD 2.4.2 - EVALUATE DRIVE STATE 
MOD 2. 4. 2.1 - EVALUATE DRIVE RESPONSE 
MOD 2.4.3 - UPDATE DRIVE STATISTICS 
MOD 2. 4. 3.1 - UPDATE HARD ERROR STATISTICS 
MOD 2. 4. 3. 2 - UPDATE CRC STATISTICS 
MOD 2. 4. 3. 3 - UPDATE SOFT ERROR STATISTICS 
MOD 2. 4. 3. 4 - UPDATE SECTOR WRITTEN/READ COUNTERS 
MOD 2.4.U.1 - SOFT ERROR LOGGER 
MOD 2.4.4 - EVALUATE UNIT ERROR CODE 
MOD 2.5 - OUTPUT ERROR TYPE 
MOD 2.5.1 - PRINT RETRY 
MOD 2.6 - SET DRIVES DONE 
MOD 3.0 - OUTPUT EXERCISE COMPLETE 
MOD 4.0 - OUTPUT SYSTEM ERROR 

MOD INTR.1 - INTERRUPT HANDLER #0 
MOD INTR.2 - INTERRUPT HANDLER #1 
MOD U.INTR.U - SAVE UNIT REG 
READ ERROR CODE BUFFER 
TRACK TABLE 
DATA BUFFERS 

HARDWARE PARAMETER CODING SECTION 
SOFTWARE PARAMETER CODING SECTION 
PATCH AREA 



USER DOCUMENTATION MACRO M1200 1 5-0EC-82 13:50 PAGE 3 


SEO 4 


TABLE OF CONTENTS 


1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1.2 SYSTEM REQUIREMENTS 

1.2.1 HARDWARE REQUIREMENTS 

1.2.2 SOFTWARE REQUIREMENTS 

1.3 RELATED DOCUMENTS AND STANDARDS 

1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 

1.5 ASSUMPTIONS 

1.6 MEMORY MAP 

2.0 OPERATING INSTRUCTIONS 

2.1 HARDWARE QUESTIONS 

2.2 SOFTWARE QUESTIONS 

3.0 ERROR INFORMATION 

3.1 WRITE ERROR 

3.2 CRC ERROR 

3.3 NO CRC ERROR BUT DATA ERROR 

3.4 CRC ERROR BUT NO DATA ERROR 

3.5 SEEK ERROR 

3.6 CHECKSUM ERROR 

3.7 ERROR NUMBERS 

4.0 PERFORMANCE AND PROGRESS REPORTS 

5.0 DEVICE INFORMATION TABLES 

5.1 DEVICE PROTOCOL 

6.0 TEST SUMMARIES 

6.1 UNIT/DRIVE SELECTION 

6.2 DATA PATTERNS 

6.3 FUNCTIONAL TESTS 

6.4 TRACK SEQUENCING 

6.5 SECTOR/TRACK ADDRESSING 

6.6 DISKETTE DENSITY 

6.7 PROGRAM CONTROL 

7.0 LISTING INDEX 

8.0 LISTING 



F 1 


SEQ 5 


USER DOCUMENTATION MACRO M1200 15-DEC-82 13:50 PAGE 4 


1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


THIS PROGRAM EXERCISES TWO RX02 SUBSYSTEMS (FOUR DRIVES). IN SBC-1 1/21 PROCESSOR. 

DRIVE STATISTICS AND PROVIDES RUN SUMMARIES SO THAT SEEK AND 

DATA ERROR RATES MAY BE DETERMINED. THE PERFORMANCE EXERCISER 

WILL GIVE THE USER CONFIDENCE. AFTER RUNNING SUCCESSFULLY. THAT 

THE SYSTEM IS PERFORMING WITHIN SPECIFICATION. 


1.2 SYSTEM REQUIREMENTS 


1.2.1 HARDWARE REQUIREMENTS 


SBC-1 1/21 PROCESSOR WITH 1AK OR MORE OF MEMORY 
CONSOLE DEVICE (LA30. LA36. VT50. ETC.) 

1.2.2 SOFTWARE REQUIREMENTS 


THIS DIAGNOSTIC IS DESIGNED TO RUN WITH THE DIAGNOSTIC SUPERVISOR 
AS DESCRIBED IN PARAGRAPH 2.0. 


1.3 RELATED DOCUMENTS AND STANDARDS 


XXDP+ SUPERVISOR/USERS MANUAL CHOUS 


1.4 DIAGNOSTIC HIERARCY PREREQUISITES 


NONE 


1.5 ASSUMPTIONS 


THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO 
WORK PROPERLY. FALSE ERRORS MAY BE REPORTED IF THC PROCESSOR, 
MEMORY. ETC.. DO NOT FUNCTION PROPERLY. 




MAINTAINS 
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1.6 MEMORY MAP 


MEMORY LAYOUT ON 16K MACHINE - XXDP ENVIRONMENT 


ADDRESS 

♦ 77777 

i i 

i XXDP* MONITOR ! 

i i 

* 72000 

i i 

! XXDP* TTY I/O AREA ! 
70000 

i i 

! DRS ! 

i i 

! i 

! i 

♦ ♦ a iooo 

i i 

! RX02 PERFORMANCE ! 

! EXERCISER ! 

i i 

; ; 2000 

i i 

! STACKS i 

i i 

* 400 

i i 

VECTOR AREA ! 

t i 

■ • 

♦ o 


IN A MACHINE WITH MORE MEMORY FREE SPACE WILL OCCUR BETWEEN 
THE DIAGNOSTIC AND THE DRS. 
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2.0 OPERATING INSTRUCTIONS 


THIS IS A REV A SUPERVISOR DIAGNOSTIC SPECIFIC TO SBC-11/21 PROCESSOR: FOR OPERATING INSTRUC 
T IONS, PLEASE SEE CHAPTER 5 Of XXDP* OPERATOR’S MANUAL. THEY 
ARE NO LONGER INCLUDED IN THE DIAGNOSTIC LISTING BECAUSE IT IS 
DESIRED THAT A CHANGE IN THOSE INSTRUCTIONS NOT REQUIRE A RE- 
ASSEMBLY OF ALL SUPERVISOR DIAGNOSTICS. 


2.1 HARDWARE QUESTIONS 


THE FOLLOWING SERIES OF QUESTIONS COMPRISE THE PARAMETERS 
NECESSARY TO IDENTIFY EACH FLOPPY DISK SUBSYSTEM. 

RX BUS ADR - 

THIS PARAMETER DEFINES THE BASE BUS ADDRESS FOR THE FLOPPY 
DISK SUBSYSTEM. 

VECTOR ADR - 

THIS PARAMETER DEFINES THE INTERRUPT VECTOR ADDRESS FOR 
THE FLOPPY DISK SUBSYSTEM INTERFACE. 

DRIVE # - 

THIS PARAMETER DEFINES THE FLOPPY DISK SUBSYSTEM DRIVE 
NUMBER (0 - 1). 

EXP WRD-TYPE - 

THIS PARAMETER IS TO BE USED FOR FUTURE EXPANSION. TYPE 
A CARRIAGE RETURN. 
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2.2 SOFTWARE QUESTIONS 


EXERCISE # - 

ENTER # FROM TABLE SHOWN IN PARAGRAPH 6.3. 

DATA PATTERN # - 

ENTER # FROM TABLE SHOWN IN PARAGRAPH 6.2. 

TRACK SEQUENCE # - 

ENTER » FROM TABLE SHOWN IN PARAGRAPH 6.4. 

DEVICE FATAL THRESHOLD LEVEL - 

THE DEVICE FATAL THRESHOLD LEVEL (DFTL) IS INITIALl Y SET=1. 
THIS THRESHOLD LEVEL EQUALS THE # OF HARD ERRORS THAT 
WILL CAUSE A DEVICE FATAL ERROR WHEN THE DRS **EVL" FLAG 
IS SET. THE ”EVL'* FLAG WILL ALSO CAUSE 10 SOFT ERRORS 
TO BE RECLASSIFIED A HARD ERROR. WHICH IF DFTL = » WILL 
BECOME A DEVICE FATAL ERROR. 

RUN TEST IN DOUBLE DENSITY - 

IF TEST IS IN WRONG DENSITY - OPERATOR WILL BE ASKED IF 
THE DISKETTE IS TO BE REFORMATTED. 

RUN TEST IN DELETED DATA MODE - 

IF ANSWERED YES, DELETED DATA MODE WILL BE DONE FIRST. 

ANY PROGRAM CONTROL FLAGS - 

IF ANSWERS YES THE FOLLOWING QUESTIONS WILL BE ASKED. 

RETRY ON ERROR. LOG SOFT ♦ HARD ERRORS? 

IF RETRY IS NOT SET, THEN SOFT ERRORS 
WILL ALSO LOG AS HARD ERRORS. 

RECALIBRATE ON SEEK ERRORS? 

PRINT ONLY 10 DATA ERRORS ♦ CONTINUE? 

CLEAR STATISTICAL TABLES BEFORE NEXT PASS? 

MODIF < TRACK ADDRESS LIMITS - 

IF ANSWERING YES, THEN THE FOLLOWING WILL BE ASKED: 

OUTER DIAMETER ADR f? 

INNER DIAMETER ADR #? 

MODIFY SECTOR ADDRESS LIMITS - 

IF ANSWERING YES, THEN THE FOLLOWING WILL BE ASKED: 

MIN. SECTOR ADR «? 

MAX. SECTOR ADR f? 

RXXX EXPANSION <CR> 

THIS WORD IS FOR FUTURE EXPANSION. ANSWER WITH A 
CARRIAGE RETURN. 
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3.0 ERROR INFORMATION 


THIS PR06RAM HAS FOUR TYPES OF ERROR CLASSIFICATIONS; SYSTEM 
FATAL, DEVICE FATAL, HARD AND SOFT. 

SYSTEM FATAL ERRORS 


SYSTEM FATAL ERRORS ARE USED TO INDICATE THAT AN ERROR WAS 
DETECTED BY THE DIAGNOSTIC SUPERVISOR IN RELATION TO LOADING/ 
CONTROLLING THE DIAGNOSTIC PROCESS. 

THE CONTENT OF EACH ERROR IS SUCH THAT IT SHOULD BE SELF > 
EXPLANATORY. HOWEVER, THE MESSAGES UTILIZE SOME TERMS THAT 
ARE SPECIFIC TO THE FLOPPY DISK SUBSYSTEM, AND MAY REQUIRE SOME 
GETTING USE TO. 


DEVICE FATAL ERRORS 


DEVICE FATAL ERRORS ARE A RESULT OF: 

1. REACHING A DEVICE FATAL THRESHOLD LEVEL (“DFTL") . AN 

"DF TL" =1 WILL CAUSE 1 HARD ERROR TO BE CLASSIFIED A DEVI -E 
FATAL ERROR. THIS LEVEL IS INITIALLY SET=1, BUT MAY BE 
MODIFIED BY THE OPERATOR. 

2. AN ERROR THAT IS CONSIDERED FATAL TO THE DEVICE, BUT TESTING 
WILL CONTINUE. 


HARD ERRORS 


HARD ERRORS ARE A RESULT OF: 

1. TEN RETRIES OF A SOFT ERROR OR 

2. A NON-RECOVERABLE ERROR 


SOFT ERRORS 


SOFT ERRORS ARE MEDIA RELATED ERRORS AND IF RETRY ON ERROR IS 
SET WILL BE TRIED UP TO TEN TIMES THEN CLASSIFIED AS HARD ERRORS. 

IF RETRY ON ERROR IS NOT SET THE ERROR WILL BE LOGGED AS BOTH 
SOFT AND HARD ERRORS. 
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3.1 WRITE ERROR 


A WRITE ERROR IS AN ERROR WHICH OCCURRED DURING EXECUTION OF A 
WRITE FUNCTION. 

READ ERROR 


A READ ERROR IS AN ERROR WHICH OCCURRED DURING EXECUTION OF A 
READ FUNCTION. 

3.2 CRC ERROR 


THIS ERROR IS DETECTED BY THE DRIVE DURING A READ OPERATION AND 
ALSO BY THE PROGRAM IF A DATA CHECK IS PERFORMED. 

3.3 NO CRC ERROR BUT DATA ERROR - BAD CRC 


3.4 CRC ERROR BUT NO DATA ERROR - BAD CRC 


THE ABOVE TWO ERRORS ARE DETECTED WHEN THE PROGRAM IS 
VERIFYING THE DATA READ OFF THE DISKETTE AGAINST THE DATA THAT 
SHOULD HAVE BEEN READ. 

THE DATA PATTERNS WILL BE FORMATTED FOR DOUBLE DENSITY (SINGLE 
DENSITY) AS SHOWN. 

BYTE # 

0 <TRACK ADDRESS BITS 6 - 0> 

1 <SECTOR ADDRESS BITS 4 - 0> 

2 - 253 (125) CONTAIN SELECTED PATTERN. 

254(126) <THE SUM OF ALL BYTES 0 - 253(125)> 

255(127) <THE NEGATIVE OF 2 TIMES BYTE 254(126)> 

3.5 SEEK ERROR 


A SEEK ERROR CAN BE DETECTED VIA BYTE #0 IF A CRC. DATA. CHECKSUM 
ERROR HAS NOT OCCURRED. ALSO THE DRIVE MAY DETECT A SEEK ERROR IF 
THE DISKETTE HEADER IS NOT RECOGNIZED OR COULD NOT BE FOUND. A 
PROGRAMMED RECALIBRATE IS ISSUED TO TRY TO CORRECT EACH SEEK ERROR. 
IF SELECTED DURING PROGRAM DIALOG. 
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3.6 CHECKSUM ERROR 


THE PROGRAM WILL DETECT A CHECKSUM ERROR BY SUMMING ALL THE 

DATA READ FROM THE DISKETTE AND COMPARING THAT SUM WITH THE CHECKSUM BYTES. 

A CHECKSUM ERROR RESULTS FROM AN INCORRECT TRANSFER OF DATA 

INTERNAL TO THE RXV211 RX21/RX02 SUBSYSTEM. 

3.7 ERROR NUMBERS 


ERROR 

- 

TYPE 

- 

ERR # 

SEEK 

— 

SOFT 

• 

0 -32 

CRC 

- 

SOFT 

- 

1 -33 

CKSUM 

- 

HARD 

- 

-34 

DATA 

- 

SOFT 

- 

3 -35 

DEL. DATA UNEX 

- 

HARD 

- 

-37 

DEL. DATA MISSING 

- 

HARD 

«a 

-38 

UNK ERR 

- 

HARD 

- 

-40 

FILL/EMPTY BUFFER 

- 

HARD 

- 

-41 

READ 

- 

SOFT 

- 

10-42 

WRITE 

- 

SOFT 

- 

11-43 

INTER-BUT NO DONE 

- 

HARD 

- 

-44 

DONE-BUT NO INTER 

• 

HARD 

- 

-45 

ERR-BUT NO ERR BIT 

- 

HARD 

- 

-46 

ERR BIT SET 

• 

HARD 


-47 

NO DONE ON INI T 


SYS FATAL 

m 

128 

NO DONE ON FUNCTION 

- 

DEV FATAL 

- 

65 

NO DRIVE RDY 

- 

DEV FATAL 

- 

66 

NO SIDE RDY 

- 

DEV FATAL 

• 

67 

NO DONE AFTER RD STA 

- 

DEV FATAL 


68 

WRG DRV RESPOND 

- 

SYS FATAL 

- 

133 

WRG SIDE RESPOND 

- 

SYS FATAL 

- 

134 

DISKETT WRG DEN 

• 

DEV FATAL 


73 

DENSITY ERR 

- 

DEV FATAL 

• 

74 

T.O. ON "TR** OR •’DONE'* 

- 

SYS FATAL 

- 

139 

SYS ERR 

i m 

SYS FATAL 

- 

140 

INITIALIZE ERROR 


DEV FATAL 

- 

200 

ADDRESSING ERROR 

- 

SYS FATAL 

mt 

400 


NOTES: 1. SOFT ERRORS HAVE TWO ERROR NUMBERS: 

LOU # = SOFT ERROR 

HIGH # = HARD ERROR (RECLASSIFIED SOFT ERROR) 

2. IF "E VL" FLAG IS SET HARD ERRORS WILL BE RE- 
CLASSIFIED DEVICE FATAL ERRORS. BUT THE ERROR 
NUMBER WILL REFLECT THE ORIGINAL HARD ERROR. 
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A .0 PERFORMANCE AND PROGRESS REPOPTS 


AT THE END OF EACH PASS A STATISTICAL REPORT WILL BE PRINTED OUT 
OF ALL ACCUMULATED ERRORS. 


5.0 DEVICE INFORMATION TABLES 


RX02 REGISTER BITS 


i t i i i 



!15 

K 

! 13 

! 12! 11! 10! 

09! 08! 07! 06 !05 !04 !03 ! 02 !01 !00 ! 

RXCS: 

! E PR 

INT 

! XM 

!XM 

!RX2! ! 

SID! DEN ! TR !IE ! DON ! DRV ! F UN ! F UN ! F UN ! 00 ! 

RXUC: 

j x 

X 

X 

X 

X X 

X X ! WORD COUNT ! 

RXBA: 

i 



BUS 

ADDRESS 


RXES: 

! X 

i 

X 

! X 

i 

! X 

i 

!NXM!UC ! S ID ! DRV ! DRV ! DEL ! DSK ! DEN ! AC ! INT !SID!CRC ! 

! !0VF!»1 !#1 ! RD Y ! DAT ! DEN ! ERR ! LOU ! DON ! RD V ! ! 

1 

RXTA: 

! x 

X 

X 

X 

X X 

X X ! 0 ! TRACK ADDRESS 

RXSA : 

IT' 

X 

X 

X 

X X 

X X ! 0 ! 0 ! 0 ! SECTOR ADDRESS 

RXDB: 

i 


DATA BUFFER 



READ ERROR CODE REGISTERS - (SEE LABLE ’'XERUUT”) 


i i i i i 


WORD 

! 1 5 

! 14 ! 13! 12! 11! 10! 09! 

08! 07! 06 ! 05 !04 !03 !02 !01 

!00 ! 

#1 

1 

WORD COUNT 

I ERROR CODE 


#2 

1 

CURRENT TRACK DRV #1 

! CURRENT TRACK DRIVE AO 


#3 

1 

| | TARGET SECTOR j 

! TARGET TRACK 


#4 

t 

i 

BAD TRACK-ONLY VALID IF 

E RRC ODE = 1 50 

!UNT !DVl ! HD !DVO! X ! X ! X 
! SEL.'DENiLD ! DEN ! ! ! 

•LCD! 
! DEN I 
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5.2 DEVICE PROTOCOL 

RX02 r, JNCT IONAL PROCESS 


FUNCTION 
CODE BIT 
A 3 2 1 


FUNCTION 


» 

PROCEDURE (PROTOCOL) 


0 0 0 

FILL BUFFER 

0 0 1 

EMPTY BUFFER 

0 1 0 

WRITE SECTOR 

0 1 1 

READ SECTOR 

1 0 0 

SET DENSITY 

1 0 1 

READ MAINT. 


STATUS 

1 1 0 

WRITE SECTOR 


WITH DELETED 


DATA 

1 1 1 

READ ERROR 


CODE 


FUNCTION WORD >TR — 

FUNCT ION WORD >TR — 

FUNCT ION WORD >TR — 

F UNCTION WORD >TR — 

FUNCT ION WORD >TR — 

FUNCTION WORD >DONE 

FUNCTION WORD >TR — 


>UC >TR >BA >DONE 

>WC >TR >BA >DONE 

>SA >TR >TA >DONE 

>SA >TR >TA >DONE 

>VW— >DONE 


>SA >TR >TA >DONE 

FUNCTION WORD >TR >BA >DONE 


+ — -♦ — — -- ------- -- — ♦ 


TR = WAIT FOR 1R BIT 

DONE = WAIT FOR DONE BIT 

BA = BUS ADDRESS (OUTPUT TO RX) 

VU = VERIFICATION WORD (OUTPUT TO RX) 
UC = WORD COUNT (OUTPUT TO RX) 

5A = SECTOR ADDRESS (OUTPUT TO RX) 

TA = TRACK ADDRESS (OUTPUT TO RX) 

6.0 TEST SUMMARIES 


6.1 UNIT/DRIVE SELECTION 

UNIT AND DRIVE SELECTION WILL BE ACCOMPLISHED BY MODIFYING HARDWARE 
P-TABLES DURING A START DIALOG. 



B 2 


SEO 14 


USER DOCUMENTATION MACRO M1200 15-DEC-82 13:50 PAGE 13 


6.2 DATA PATTERNS 


AVAILABLE DATA PATTERNS ARE SELECTED BY MODIFYING THE SOFTWARE 
P-TABLE DURING START OR RESTART DIALOG. DATA PATTERNS AVAILABLE 
ARE: 

0 = DEFAULT TO 7 

1 = ZEROS 

2 = ONES 

3 = FLOATING ZERO 

4 = FLOATING ONE 

5 = 125 

6 = 333 

7 = RANDOM 


6.3 EXERCISE OPTIONS 


AVAILABLE EXERCISES ARE SELECTED BY MODIFYING THE SOFTWARE P-TABLE 
DURING A START OR RESTART DIALOG. EXERCISES AVAILABLE ARE: 

0 = DEFAULT TO 7 

1 = WRITE ONLY 

2 = WRITE/READ 

3 = WRITE/READ/DATA CHECK 

4 = READ/DATA CHECK ONLY 

5 = READ ONLY (CRC CHECK) 

6 = WRITE/READ/DATA CHECK ON ALTERNATING DRIVES (*> 

7 = WRITE/READ/DATA CHECK ♦/READ/DATA CHECK (**> 

(*) TEST 6 WRITES THEN READ CHECKS ANY SELECTED DATA PATTERN 
USING ANY TRACK SEQUENCE, BUT ONE TRACK AT A TIME. 

FIRST ON DRIVE 0 THEN DRIVE WHEN BOTH UNIES HAVE 
ACCESSED THAT TRACK, IT GOES BACK TO UNIT 0 FOR THE NEXT 
TRACK. ETC. 

(**) HE FIRST HALF OF TEST 7 FORCES THE TRACK SEQUENCE TO 
INCREMENT UP THROUGH ALL TRACKS DOING WRITE/READ/DATA 
CHECK FUNCTIONS. THIS VERIFIES THAT ALL TRACKS ARE 
ACCESSABLE. THE SECOND HALF OF THE PASS WILL USE THE 
SEQUENCE SELECTED BY THE OPERATOR AS INDICATED BELOW. 

AND ONLY READ AND CHECK THE DATA JUST WRITTEN. THIS 
VERIFIES THAT THE DATA CAN BE READ FROM A TRACK AFTER 
THE HEAD HAS BEEN MOVED AWAY FROM AND BACK TO THAT 
TRACK. AT THE COMPLETION OF THE PASS THE DELETED DATA 
BIT IN TEST CONDITIONS IS COMPLEMENTED AND THE NEXT PASS 
WILL BE RUN UNDER THIS NEW CONDITION. 
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6.4 TRACK SEQUENCING 


TRACK SEQUENCE OR TYPE Of HEAD MOVEMENT MAY BE SELECTED BY 
MODIFYING THE SOFTWARE P-TABLE OF THE DIAGNOSTIC SUPERVISOR. 
TRACK SEQUENCES AVAILABLE FOR SELECTION ARE: 

0 = DEFAULT TO 7 

1 = INCREMENT O.D. UP TO I.D. 

2 = DECREMENT I.D. DOWN TO O.D. 

3 = INCREMENT O.D.. THEN DECREMENT I.D. 

4 = BOUNCE BETWEEN O.D. AND I.D. 

5 = BOUNCE BETWEEN DECREASING I.D. AND INCREASING O.D. 

6 = BOUNCE BETWEEN O.D. AND DECREASING I.D. 

7 = RANDOM 

O.D. = OUTSIDE DIAMETER (TRACK) 

. I.D. = INSIDE DIAMETER (TRACK) 


6.5 SECTOR/TRACK ADDRESSING 


IT WILL BE POSSIBLE TO TEST THE DISKETTES BETWEEN TRACK AND 
SECTOR ADDRESS LIMITS OTHER THAN BETWEEN THE NORMAL OUTER 
DIAMETER (OD) AND INNER DIAMETER (ID) TRACK ADDRESSES. AND/OR 
MINIMUM (FIRST) AND MAXIMUM (LAST) SECTOR ADDRESS. BY 
MODIFYING THE SOFTWARE P-TABLE DURING A START OR RESTART DIALOG. 


6.6 DISKETTE DENSITY 


ALL TESTS WILL RUN AT DOUBLE DENSITY UNLESS SELECTED AS SINGLE 
DENSITY DURING A START OR RESTART DIALOG. 


6.7 PROGRAM CONTROL 


BEHAVIOR OF THE PERFORMANCE EXERCISOR MAYBE MODIFIED BY USE OF 
THE FOLLOWING PROGRAM CONTROLS: 

1. HALT ON ERROR PROVIDED BY SUPERVISOR 

2 . HALT AT END OF PASS PROVIDED BY SUPERVISOR 

3. DON'T PRINT ERROR MESSAGE PROVIDED BY SUPERVISOR 

4. RETRY ON ERROR. LOG HARD/SOFT ERRORS SOFTWARE P-TABLE 

5. RECALIBRATE ON SEEK ERRORS SOFTWARE P-TABLE 

<FF > 

7.0 HISTORY FILE 

THIS DIAGNOSTIC HAS BEEN MODIFIED TO RUN IN SBC-11/P1 PROCESSOR FROM 
CZf.XDBO SS PERF EXER. 

LISTING INDEX 


8.0 



USER DOCUMENTATION 
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17- 

768 

17- 

837 

19- 

854 

19- 

880 

20- 

924 

22- 

1076 

26- 

1194 

28- 

1233 

<8- 

1241 

28- 

1251 

30- 

1274 

52- 

1342 

34- 

1375 

34- 

1454 

36- 

1480 

36- 

1504 

38- 

1525 

59- 

1564 

41- 

1653 

41- 

1674 

43- 

1707 

45- 

1738 

45- 

1750 

45- 

1760 

49- 

1827 

49- 

1870 

51- 

1881 

53- 

1958 

55- 

2047 

57- 

2084 

59- 

2131 

61- 

2174 

63- 

2194 

65- 

2251 

67- 

2285 

67- 

2289 

70- 

2385 

70- 

2404 

72- 

2433 

72- 

2500 

72- 

2517 

74- 

2531 

78- 

2603 

80- 

2685 

80- 

2698 

80- 

2705 

82- 

2740 


PROGRAM HEADER 
DISPATCH TABLE 
DEFAULT HARDWARE P-TABLE 
SOFTWARE P-TABLE 
GLOBAL EQUATES SECTION 
GLOBAL DATA SECTION 
GLOBAL TEXT SECTION 
GLOBAL ERROR REPORT SECTION 

- MOD U.SFT.ERR - ERROR REPORT 

- MOD U.PRT.ERR - PRINT ERRORS 

- MOD U.PRT.EC - PRINT UNIT ERROR CODE 

- ERROR PRINT CALLS/MSG CALLS 
GLOBAL SUBROUTINES SECTION 

- MOD U.1.0 - RANDOM GENERATOR 

- MOD U.A.T - CONVERSION UUT CODE — > SUTPTR 

- MOD U.A.2 - CONVERSION SUTPTR — > UUT CODE 

- MOD U.DEV.REC - DEVICE READ ERROR CODE 

REPORT CODING SECTION 

- PRINT REPORT HEADER 

- PRINT REPORT DATA 

- PRINT READ/WRITE SECTOR COUNTERS 

- PRINT REPORT TYPE 1 

- PRINT REPORT TYPE 2 

- PRINT REPORT TYPE 3 

- STATISTICAL TABLES 
LOAD DEVICE PROTECTION 
INITIALIZE SECTION 

- MOD 1.1 - UNPACK HARDWARE P-TABLES 
CLEANUP CODING SECTION 

AUTO DROP SECTION 

- TEST 0: ADDRESSING TEST 

- MOD U.SFT.TRP - BUS TRAP HANDLER 
DROP UNIT SECTION 

ADD UNIT SECTION 
TEST 1: RX02 SS PERF EXERCISER 
MOD 0.0 - EXERCISE A SYSTEM 
MOD 1.0 - GET SYSTEM EXERCISE 
MOD 1.1 - GET EXERCISE CONDITIONS 
MOD 1.2 - GET SYSTEM TO EXERCISE 

- MOD 1.2.U.1 - GET PRINTABLE SYSTEM 0 UNIT « 

- MOD 1.2.U.2 - GET PRINTABLE SYSTEM 1 UNIT » 

MOD 1.2.1 - CK DRIVE AVAILABLE 

MOD 1.2. 1.1 - REFORMAT DRIVE DENSITY 

- MOD 1.2.U.3 - INITIALIZE ERROR 

- MOD 1.2.U.4 - INITIALIZE DROP 

- MOD 1.2.U.5 - INITIALIZE PRINT 

MOD 1.3 - GET EXERCISE 
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SEO 17 


E 2 


84- 2760 
86- 2866 
86- 3015 
88- 3029 
90- 3133 
92- 3240 
94- 3298 
96- 3337 
100- 3461 
100- 3550 
102- 3562 
106- 3634 
108- 3668 
108- 3743 
110- 3757 
110- 3787 
112- 3815 
114- 3833 
116- 3915 
118- 4032 
120- 4065 
122- 4178 
122- 4193 
124- 4222 
126- 4251 
128- 4284 
130- 4317 
132- 4375 
134- 4490 
136- 4544 
138- 4569 
140- 4579 
144- 4680 
144- 4687 
144- 4694 
144- 4705 
144- 4717 
144- 4724 
146- 4748 
148- 4824 
152- 4930 


MOD 1.3.1 - SET DATA PATTERN 
MOD 1.3.2 - SET TRACK SEQUENCE 
MOD 1.3.3 - CLEAR STATISTICAL TABLES 
MOD 2.0 - SCHEDULE SYSTEM EXERCISE 
MOD 2.1 - GET A TEST 

- EXERCISE/TEST TABLE 
MOD 2.2 - GET A DRIVE 

MOD 2.3 - EXECUTE DRIVE TEST 

MOD 2.3.1 - GET A SECTOR 

MOD 2. 3.1. A - SET SECTOR DONE 

MOD 2.3.2 - GET A TRACK 

MOD 2.3.3 - GET A DRIVE FUNCTION 

MOD 2.3.4 - OUTPUT DRIVE FUNCTION 

MOD 2. 3. 4.1 - OUTPUT SINGLE WORD 

MOD U.2.3.4 - WATCH DOG TIMER 

MOD U.2.3/4 DELAY 

MOD 2.4 - EVALUATE TEST RESULTS 

MOD 2.4.1 - EVALUATE DATA 

MOD 2.4.2 - EVALUATE DRIVE STATE 

MOD 2. 4. 2.1 - EVALUATE DPIVE RESPONSE 

MOD 2.4,3 - UPDATE DRIVE STATISTICS 

MOD 2. 4. 3.1 - UPDATE HARD ERROR STATISTICS 

MOD 2. 4. 3. 2 - UPDATE CRC STATISTICS 

MOD 2. 4. 3. 3 - UPDATE SOFT ERROR STATISTICS 

MOD 2. 4. 3. 4 - UPDATE SECTOR WRITTEN/READ COUNTERS 

- MOD 2.4.U.1 - SOFT ERROR LOGGER 
MOD 2.4.4 - EVALUATE UNIT ERROR CODE 
MOD 2.5 - OUTPUT ERROR TYPE 

MOD 2.5.1 - PRINT RETRY 
MOD 2.6 - SET DRIVES DONE 
MOD 3.0 - OUTPUT EXERCISE COMPLETE 
MOD 4.0 - OUTPUT SYSTEM ERROR 

- MOD INTR.1 - INTERRUPT HANDLER #0 

- MOD 1NTR.2 - INTERRUPT HANDLER *1 

MOD U.1NTR.U - SAVE UNIT REG 

- READ ERROR CODE 8UFFER 

- TRACK TABLE 

- DATA BUFFERS 

HARDWARE PARAMETER CODING SECTION 
SOFTWARE PARAMETER CODING SECTION 

- PATCH AREA 


7.1 LISTING 


& 



F 2 
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771 

772 
806 
808 
809 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
828 

829 

830 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 


002000 


002000 

002000 

002122 


002152 


002000 


.TITLE PROGRAM HEADER AND TABLES 
.SBTTL PROGRAM HEADER 

.ENABL ABS.AMA 

2006 

BGNMOD 


THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


POINTER BGNRPT .BGNSU .BGNSF T .BGNAU.BGNDU. ERRTBL ,BGNSE TUP 


HEADER CNRXDAO. 0.0. 2100,1 

DESCRIPT “SRXoi SS PERF EXER S 

.EVEN 


.SBTTL DISPATCH TABLE 


THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


SEQ 18 


DISPATCH 1 



PROGRAM HEADER AND TABLES 
DEFAULT HARDWARE P -TABLE 


SEO 19 


858 

859 

860 
861 
862 

863 

864 

865 

866 002156 

867 

868 002160 

869 002162 

870 002164 

871 002166 

872 

878 

879 002170 

880 
881 
882 

883 

884 

885 

886 

887 

888 

889 

890 

891 002170 

892 

893 002172 

894 002174 

895 002176 

896 002200 

897 002202 

898 002204 

899 002206 

900 002210 

901 002212 

902 002214 

903 002216 

904 
911 

91<? 002220 

913 

914 002220 


G 2 
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177170 

000264 

000000 

000000 


.SBTTl DEFAULT HARDWARE P-TABLE 


THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW 

DFPTBL 


.WORD 

177170 

;UNIBUS ADDRESS 

.WORD 

264 

.‘VECTOR ADDRESS 

.WORD 

0 

.‘DRIVE # 

.WORD 

0 

FUTURE EXPANSION 

ENDHW 




.SBTTL SOFTWARE P-TABLE 

; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAHETERS THAT CAN BE CHANGED BV THE OPERATOR. 




BGNSW 

SFPTBL 


000000 

RXXX : 

.WORD 

0 

.‘FUTURE EXPANS I ON-R • 

000000 


.WORD 

0 

; P-TABLE CONTROL WO' D 

000000 

TSTN: 

.WORD 

0 

.‘TEST # 

000000 

TSTPAT : 

.WORD 

0 

.•TEST PATTERN # 

000000 

TRKSEQ: 

.WORD 

1 

vr 

; TRACK SEQUENCE # 

000021 

SWREG: 

.WUh'D 

21 

.•SOFTWARE SWITCH REG 

000000 

OTDITK: 

. WOR'J 

0 

.‘OUTSIDE Ui*. TRACK LIMIT 

000114 

INDITK: 

.WOFD 

114 

.‘INSIDE D1A. ThAC K LIMi T . 

000001 

MINSEC: 

.WORD 

1 

.‘MINIMUM SECTOR LIMIT 

000032 

MAXSEC: 

. WOPD 

32 

.‘MAXIMUM SECTOR LIMIT 

000001 

DFTL: 

.WCRD 

1 

.‘DEVICE FATAL THRESHOLD LVL 



ENDSW 





ENDMOD 




global areas macro Ml 200 

SOFTWARE P-TABIE 

927 

928 
96S 

975 

976 002220 

977 

978 

979 

980 

981 

982 

983 002220 


100000 

040000 

020000 

010000 

004000 

002000 

001000 

000400 

000200 

000100 

000040 

000020 

000010 
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SEQ 20 



001000 

000400 

000200 

000100 

000040 

000020 

000010 


000001 


.TITLE GLOBAL AREAS 

.SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


THE GLOBAL EQJATES SECTION CONTAINS PROGRAM EQUATES THAT 
ARE USED IN MORE THAN ONE TEST. 


EQUALS 


BIT DIF INI T IONS 


BIT15 
BIT14 
BIT13 
BIT12 
BIT11 
BIT10 
BIT09 
BIT08 
BIT 07 
BIT06 
BIT05 
BIT04 
B1T03 
BIT 02 
BIT 01 
BITOO 

B1T9= 
B1 T8= 
BIT7s 
BIT6= 
BI T5= 
B1T4 = 
BJT3= 
BIT 2= 
B I T 1 = 
B1T0= 


100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 

BIT09 

B1T08 

BIT07 

B1T06 

BIT05 

BIT04 

BIT03 

B1T02 

B1T01 

BITOO 


000040 

EF.START=s 

32. 

000037 

EF.RESTART== 

31. 

000036 

EF.C0NTINUE== 

30. 

000035 

ef.new== 

29. 

000034 

EF.PWR== 

28. 


EVENT FLAG DEFINITIONS 

EF32 :EF 1 7 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 

; BIT POSITION IN SECOND STATUS WORD 
r .START== 32. ; (100000) START COMMAND WAS ISSUED 

r .RESTART== 31. ; (040000) RESTART COMMAND WAS ISSUED 

F.C0NTINUE== 30. ; (020000) CONTINUE COMMAND WAS ISSUED 

F.NEU== 29. ; (010000) A NEW PASS HAS BEEN STARTED 

F.PWR== 28. ; (004000) A POWER-FAIL /POWER-UP OCCURRED 


PRIORITY LEVEL DEf INI I IONS 


000340 


PRI07== 340 


GLOBAL AREAS MACRO Ml 200 1 5-DEC-82 13:50 PAGE 19-1 
GLOBAL EQUATES SECTION 


SEQ 21 


I 2 



000300 

000240 

000200 

000140 

000100 

000040 

000000 


000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

002000 

004000 

010000 

020000 

040000 

100000 

984 


985 


986 


987 


988 

100000 

989 

040000 

990 

020000 

991 

010000 

992 

004000 

993 

002000 

994 

001000 

995 

000400 

996 

000200 

997 

000100 

998 

000040 

999 

000020 

1000 

000010 

1001 


1002 


1003 


1004 


1005 

001000 

1006 

000400 

1007 

000200 

1008 

000100 

1009 

000040 

1010 

000020 

1011 

000010 

1012 


1013 


1014 

000001 

1015 


1016 



PRI06== 

300 

PRI05== 

240 

PRI04S= 

200 

PRI03== 

140 

PRI02== 

100 

PR 101== 

40 

PRI00== 

0 

•OPERATOR FLAG BITS 

EVL = = 

4 

L0T== 

10 

ADR== 

20 

IDU== 

40 

ISR== 

100 

UAM== 

200 

B0E== 

400 

PNT== 

1000 

PRI== 

2000 

IXE== 

4000 

IBE== 

10000 

IER== 

20000 

L0E== 

40000 

H0E== 

100000 

•BIT DEFINITIONS 

BIT15== 

100000 

B I T 1 4- = 

40000 

BIT13== 

20000 

B1T12" 

10000 

B 1 T 1 1 = = 

4000 

B1T10== 

2000 

BIT09== 

1000 

BIT08== 

400 

B1T07== 

200 

BIT06==‘ 

100 

BIT15-= 

40 

BIT04== 

20 

BIT 03== 

10 

BIT02== 

4 

BIT01== 

2 

BIT00= 

1 

BIT9== 

BIT09 

BIT8== 

BIT 08 

B1T7== 

B1T07 

B1T6== 

BIT 06 

BIT5== 

BIT05 

BIT 4== 

BIT04 

BIT3== 

BIT03 

BIT2== 

BIT02 

B I T 1 = = 

BIT01 

BIT0== 

BITOO 


; E VENT FLAG DEFINITIONS 
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SEQ 22 

global areas 

MACRO Ml 200 

GLOBAL EQUATES 

SECTION 



1017 


; EF 32 : EF 1 7 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


1018 


; EF16:EF01 AVAILABLE FOR PROGRAM USE 


1019 

000040 

EF.$TART== 32. .-START COMMAND WAS ISSUED. 


1020 

000037 

EF.RESTART== 31. ;RESTART COMMAND WAS ISSUED. 


1021 

000036 

EF .CONTINUE== 30. ; CONTINUE COMMAND WAS ISSUED. 


1022 

000035 

EF.NEW== 29. ; A NEW PASS HAS BEEN STARTED. 


1023 

000034 

EF ,PWR== 28. ; A POWER FAIL/POWER-UP OCCURRED 


1024 


• 

• 


1025 

000020 

EF 16== 16. 


1026 

000017 

EF15== 15. 


1027 

000016 

EF 14== 14. 


1028 

000015 

EF 13== 13. 


1029 

000014 

EF12== 12. 


1030 

000013 

EF11== 11. 


1031 

000012 

EF 10== 10. 


1032 

000011 

E F 09== 9. 


1033 

000010 

E F 08== 8. 


1034 

000007 

EF07== 7 


1035 

000006 

EF06== 6 


1036 

000005 

E F 05== 5 


1037 

000004 

EF04== 4 


1038 

000003 

E F 03== 3 


1039 

000002 

EF 02== 2 


1040 

000001 

EF 01 == 1 


1041 




1042 


•PRIORITY LEVEL DEFINITIONS 


1043 




1044 

000340 

PRI07== 340 


1045 

000300 

PR I 06== 300 


1046 

000240 

PRI05== 240 


1047 

000200 

PR I 04== 200 


1048 

000140 

PRI03== 140 


1049 

000100 

PRI02== 100 


1050 

000040 

PR 101== 40 


1051 

000000 

PR I 00== 0 


1052 




1053 


•PROGRAM DEFINITIONS 


1054 




1055 

000200 

TRBI T==200 


1056 

000040 

DNBI T==40 


1057 

004000 

RX2BIT==BIT11 


1058 

000003 

SOF T==3 


1059 

000002 

HARD==2 


1060 

000001 

DVF T==1 


1061 

000000 

SYFT==0 


1062 

000004 

8TRP4==4 


1063 

000006 

BTRP6==6 


1064 

000002 

RESTAR==BIT1 


1065 

000001 

POWERF==BITO 


1066 

004000 

SYSERR==BIT11 



CLOBAL AREAS MACRO Ml 200 
GLubAL DATA SECTION 

1080 

1081 

1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 002220 000000 

1093 002222 000000 

1 094 002224 000000 

1095 002226 000000 

1096 

1097 002230 000000 

1098 002232 000000 

1099 002234 000000 

1100 002236 000000 

1101 002240 000000 

1102 002242 000000 

1103 002244 000000 

1104 002246 000000 

1105 002250 000000 

1106 

1107 002252 000000 

1108 002254 000000 

1109 002256 000000 

1110 002260 000000 
1111 002262 000000 
1112 

1113 002264 000000 

1114 002266 000000 

1115 002270 000000 

1116 002272 000000 

1117 

1118 002274 000000 

1119 002276 000000 

1120 002300 000000 

1121 002302 000000 

1122 

1123 002304 000000 

1124 002306 000000 

1125 002310 000000 

1126 002312 000000 

1127 002314 000000 

1128 002316 000000 

1129 002320 000000 

1130 002322 000000 

1131 002324 000000 

1132 002326 000000 
113* 002330 000000 
1 1 34 
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.SBTTl GLOBAL DATA SECTION 

; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
; IN MORE THAN ONE TEST. 


; STORAGE FOR DEVICE REGISTERS 


UOADR : 

.WORD 

0 

.-UNIT 0 ADR 

Ul ADR: 

.WORD 

0 

;UNI T 1 ADR 

UOVECT: 

.WORD 

0 

.-UNIT 0 VECTOR 

U1VECT: 

.WORD 

0 

.-UNIT 1 VECTOR 

SDD : 

.WORD 

0 

;SYSTEM DRIVES DONE (SEE REG. DEF. BELOW) 

SUT: 

.WORD 

0 

.•SYSTEM UNDER TEST (SEE REG. DEF. BELOW) 

UUT: 

.WORD 

0 

.-UNIT UNDER TEST (SEE REG. DEF. BELOW) 

UUTADR: 

.WORD 

0 

;UUT UNIBUS ADR 

UUTOFF: 

.WORD 

0 

;UUT TABLE ADDRESSING OFFSET 

DEN: 

.WORD 

0 

.•DENSITY FLAG 

DELDAT: 

.WORD 

0 

.'DELETED DATA FLAG 

CSRUUT: 

.WORD 

0 

; CONT/STATUS REG UUT 

ESRUUT: 

.WORD 

0 

;ERROR/STATUS REG UUT 

WDCNT: 

.WORD 

0 

;WORD COUNT 

TRACK: 

.WORD 

0 

; TRACK ADR 

SECTOR: 

.WORD 

0 

.'SECTOR ADR 

TRKDN: 

.WORD 

0 

.•TRACK DONE (UUT) FLAG 

SECDN: 

.WORD 

0 

.'SECTOR DONE (UUT) FLAG 

FLGDRS: 

.WORD 

0 

; , ‘DRS*‘ FLAGS 

FLAGS: 

.WORD 

0 

.•DIAGNOSTIC FLAGS 

ABORT: 

.WORD 

0 

; ABORT FLAG 

PRTECD: 

.WORD 

0 

.•PRINT ERR CODE FLAG 

ERRSY: 

.WORD 

0 

; ERROR SYSTEM 

ERRTY: 

.WORD 

0 

.'ERROR TYPE 

HARDER: 

.WORD 

0 

;HARD ERROR 

HDERCT: 

.WORD 

0 

;HARD ERROR COUNTER (USED FOR ••OFTc") 

ftETRY: 

.WORD 

0 

://(10)DATART/(4)RDRT/(2)WTRT/<1 >SEEN/ SEE BELOW 

SEEKRT: 

.WORD 

0 

.'SEEK RETRY COUNT 

CKSMRT: 

.WORD 

0 

.'CHECK SUM RETRY COUNT 

CRCBRT: 

.WORD 

0 

; CRC BAD iETRY COUNT 

CRCERT: 

.WORD 

0 

;CRC ERR RETRY COUNT 

DATART: 

.WORD 

0 

;DATA RETRY COUNT 

DARDRT : 

.WORD 

0 

.•DATA READ RETRY COUNT 

DAWTRT: 

.WORD 

0 

.•DATA WRITE RETRY COUNT 

READRT : 

.WORD 

0 

.'READ RETRY COUNT 

URTRT: 

.WORD 

0 

.•WRITE RETRY COUNT 

DDERCT: 

.WORD 

0 

;D.D. ERR RETRY COUNT 
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1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 


002332 

002334 

002336 

002340 

002342 

002344 


000000 

CMD: 

0 

177777 

UNIT: 

-1 

177777 

UTOO: 

-1 

177777 

UT01 : 

-1 

177777 

UT10: 

-1 

177777 

UT11 : 

-1 


COMMAND FOR PRINT 
UNIT # FOR PRINT 
**** UUT CODE# TABLE **** 
>STORAGE OF USER UNIT « 

FOR PRINT OUT, LOOKUP 
l STATISTICAL TABLE PRINT 


***** SOFTWARE REGISTER DEFINITIONS ***** 


! BIT# 

! 03! 02! 01! 00 
— — — -♦ 

SDD: ! 11! 10! 01! 00! <- UUT CODES-EQUIV TO A BIT SET IN THIS REG 

| — ♦ ♦ ♦ -THAT IS UUT=0Q IS SDD BIT#0 SET 

SUT: ! 11! 10! 01! 00! <- UUT CODES- 


RX02 


UUT: ! 00 = UNIT#0/DRV#0 
! 01 * UNIT#0/DRV#1 
! 10 = UNIT#1/DRV#0 
! 11 = UNIT#1/DRV#1 


RXXX-FUTURE EXPANSION 


S1DE#0/DRV#0 

SIDE#0/DRV#1 

SIDE#1/DRV#0 

SIDE#1/DRV#1 


! <DRIVE # 

<UNIT # (RX02) OR SIDE # (RXXX) 


ERRTY: 


ERRSY: 


RETRY: 


« • * i i 

! 15! 14! 13! 12! 11! TO! 09! 08! 07! 06! 05! 04! 03! 02! 01! 00 

♦—4— — 

! ERR ! ERR ! DON ! ITU* UR T ! RD!FIL!UNK! ! DD! DD! ! ! CK! ! 

!BJT!NOT! NO! NO!ERR!ERR!EMP!ERR! * !MIS!UNX! - !DAT!SUM!CRC!SEK 
! !SET ! ITRiDON! ! !ERR! !!!!!!!! 

<=ss4c=s4ss=4sss4s=r4s==4rs=4===*===4==r4===4==i4===4===4===4=r= 

! ! ! ! DRV ! ! ! WRONG !DON!SID!DRV!NO DONE! FUNCTION 

!UNR! TO! DEN! DEN! SYS! DAG! ! F UN ! RD Y ! RO Y ! ! CAUSING 

! ERR! ERR! ERR! ERR! ERR! ERR! SID! DRV! #2! ERR! ERR! FUN! I NT! ERROR 

4=S=4==s44==4=S=4===4===4=rs4==r4===4===4r==4===4===4===4===4r== 

! ! ! CRC ! DAT ! RD ! WRT ! SEK 

! ! ! RT! RT! RT! RT! RT 


NOTE: RXXX IS REFERENCE FOR FURTHER EXPANSION 



SEQ 25 


M 2 
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GLOBAL TEXT SECTION 


1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 002346 

1215 

1216 

1217 

1218 
1219 
1226 
1227 


.SBTTL GLOBAL TEXT SECTION 

;*THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
; MORE THAN ONE TEST. 


NAMES OF DEVICES SUPPORTED BY PROGRAM 
DEVTYP <RX02> 


FORMAT STATEMENTS USED IN PRINT CALLS 



N 2 


GLOBAL AREAS MACRO M1200 
GIOBAL ERROR REPORT SECTION 

1257 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 002354 

1248 002362 

1249 002370 

1250 002372 

1251 

1252 002374 
002374 
002376 
002400 
002402 

1253 

1254 

1255 

1256 

1257 002404 

1258 002444 

1259 002450 

1260 002452 

1261 002522 

1262 002572 

1263 002576 

1264 002602 

1265 

1266 002604 

1267 

1268 002606 

1269 002663 

1270 002744 

1271 

1272 

1273 

1274 
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, SBTTl GLOBAL ERROR REPORT SECTION 


♦ 4 - 


THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTS AND PRINTX CALLS 
THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 





.SBTTL - MOD U.SFT.ERR - 

ERROR REPORT 

012737 

004506 

002402 

ERROR: MOV 

#NONE, ERRBLK 

.•SETUP ERROR BLOCK CODE 

013737 

002334 

002074 

MOV 

UNIT ,L$LUN 

.•SETUP LUN FOR PRINT 




ERROR 



000207 



RETURN 






ERRTBL 



000000 



ERRTYP: : 

.WORD 0 


000000 



ERRN8R: : 

.WORD 0 


000000 



ERRMSG: : 

.WORD 0 


000000 



ERRBLK: : 

.WORD 0 





• 

.SBTTL - MOD U.PRT.ERR - 

PRINT ERRORS 




PRTERR: PRINTB 

#IDENT1 .UNIT 

.CSRUUT.ESRUUT.CMD 

005737 

002272 


IFAUP: TST 

PRTECD 

; IF ERR CODE FLAG 

001452 



SEC? 

ENDUP 

; SET - THEN 




PRINTX 

#XER1.<B.XERUUT>.<B.WC>.<B,CTK0>.<8.CTK1> 




PRINTX 

#XER2.<B.TTRK>.<8.TSEC>.<B.SFTSTS>,<B.BTRK> 

005037 

002272 


CLR 

PRTECD 

; CLEAR ERR CODE FLAG 

005037 

002604 


ENDUP: CLR 

ERRREG 

;CLEAR ERR REGISTER 

000207 



RTS 

PC 

; RE TURN 

000000 



ERRREG: 0 


• 

045 

101 

040 

i DENT 1 : .ASCIZ 

/XA UNIT#X01XA RXCSR=XOXA RXESR=XOXA CHD=XOXN/ 

045 

101 

040 

XER1 : .ASCIZ 

/XA ERCD=X03XA VC=X03XA CTRK0=XD2XA. CTRK1=XD2XA./ 

045 

101 

040 

XER2: .ASCIZ 

/XA TTRK=XD2XA. TSEC=XD2XA. SFTSTAT=X03XA BTRK=XD2XA.XN/ 


.EVEN 
;MOD U.PRT.ERR 


SEQ 26 


END MODULE 
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MOD U.PRT.ERR - PRINT ERRORS 


1278 

1279 

1280 

1281 003034 105737 033544 

1282 003040 001424 

1283 003042 013701 033544 

1284 003046 042701 177400 

1285 003052 006201 

1286 003054 006201 

1287 003056 062701 003114 

1288 003062 011137 00311 4 

1289 003066 

1290 003106 105037 033544 

1291 003112 000207 

1292 

1293 

1294 003114 000000 

.295 

1296 

1297 003116 003170 

1298 003120 003236 

1299 003122 003304 

1300 003124 003332 

1301 003126 003400 

1302 003130 003451 


1303 003132 003477 


1304 003134 003555 


1305 003136 003603 

1306 003140 003660 

1307 003142 003714 

1308 003144 003773 

1309 003146 004021 

1310 003150 004107 

1311 003152 004153 
131? 003154 004207 

1313 003156 004254 

1314 003160 004311 

1315 003162 004360 

1316 003164 004413 

1317 003166 004442 

1318 


.SBTTL - M 
» 

XERPRT: TSTB 
BEQ 
MOV 
BIC 
ASR 
ASR 
ADD 
MOV 
PRINTX 
ClRB 

ENDXER: RTS 
• 

EXMSG: 0 

ECTAB: .WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORr 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 


SEO 27 




C 3 


3BAL 

AREAS 

MACRO M1200 15 

-DEC-82 

13:50 

PAGE 31 


MOD U.PRT.EC - PRINT UNIT 

ERROR CODE 



1321 





* • • « 



1322 

003170 

045 

101 

040 

§C1 : 

.ASCIZ 

/XA 

1523 

003236 

045 

101 

040 

EC2: 

.ASCI Z 

/XA 

1324 

003304 

045 

101 

040 

EC3: 

.ASCIZ 

/XA 

1325 

003332 

045 

101 

040 

EC4: 

.ASCIZ 

/XA 

1326 

003400 

045 

101 

040 

E C 5 : 

.ASCIZ 

/XA 

1527 

003451 

045 

101 

040 

EC6: 

.ASCIZ 

/XA 

1328 

003477 

045 

101 

040 

EC7: 

.ASCIZ 

/XA 

1329 

003555 

045 

101 

040 

EC10 

.ASCIZ 

/XA 

1 330 

003603 

045 

101 

040 

ecu 

.ASCIZ 

/XA 

1331 

003660 

045 

101 

040 

EC12 

.ASCIZ 

/XA 

1332 

003714 

045 

101 

040 

EC13 

.ASCIZ 

/XA 

1 333 

003773 

045 

101 

040 

ECU 

.ASCIZ 

/XA 

1334 

004021 

045 

101 

040 

EC1 5 

.ASCIZ 

/XA 

1335 

004107 

045 

101 

OaO 

EC16 

.ASCIZ 

/XA 

1336 

004153 

045 

101 

040 

EC17 

.ASCIZ 

/XA 

1337 

004207 

045 

101 

040 

EC20 

.ASCIZ 

/XA 

1338 

004254 

045 

101 

040 

EC21 

.ASCIZ 

/XA 

1339 

004311 

045 

101 

040 

EC 22 

.ASCIZ 

/XA 

1340 

004360 

045 

101 

040 

EC23 

.ASCIZ 

/XA 

1341 

004413 

045 

101 

040 

EC24 

.ASCIZ 

/XA 

1342 

004442 

045 

101 

040 

EC25 

.ASCIZ 

/XA 

1343 






.EVEN 


-544 





• 



1345 








1346 





.S8TTL - ERROR PRI 

1347 








1348 

004506 





BGNMSG 

NONE 

1349 

004506 





ENDMSG 


1350 








1367 

004510 





BGNMSG 

PRTB1 

1368 

004510 

004737 

004536 



CALL 

PRTB1S 

1369 

004514 





ENDMSG 


1370 





• 



1371 

004516 




PRTBOS: PRINT8 

R1 

1372 

004534 

00020/ 




RETURN 


1 373 








1374 

004536 




PRT81S: PRINTB 

R1 ,R2 

1375 

004556 

000207 




RETURN 


137.- 









SEO 2 8 


>NO HOME ON INITIALIZE-DRV AO.XN/ 

>NO HOME ON INITJALIZE-DRV #1 .XN/ 

> ILL ERR CODE.XN/ 

>TRIED TO ACCESS A TRACK > 76. XN/ 

>HOME FOUND BEFORE DESIRED TRACK. XN/ 

> I L L ERR CODE .XN/ 

>52 HEADERS PASSED l SECTOR NOT FOUND. XN/ 

> I LL ERR CODE.XN/ 

>NO SEPCLOCK SEEN IN 40 MICROSECONDS. XN/ 

>PRE AMBLE NOT FOUND. XN/ 

PREAMBLE FOUND BUT NO ID MARK IN TIME.XN/ 

> I LL ERR CODE.XN/ 

>GOOD TRACK ADDRESS HEADER NOT=SElECTED TRACK. XN/ 
>TOO MANY TRIES FOR AN IDAM.XN/ 

>NO DATA AM IN TIME.XN/ 

>CRC ERROR ON READING SECTOR. XN/ 

HJNASSIGNED ERR CODE.XN/ 

>R-W ELECT. FAILED MAINT. TEST.XN/ 

>UORD CNT OVERFLOW.XN/ 

>DENSITV ERROR. XN/ 

>SET DENSITY WRONG KEY WORD.XN/ 
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1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 
1395 
1401 
1408 
1414 
1421 
1430 
1438 

1444 

1445 
1452 

1458 

1459 


.SBTTL GLOBAL SUBROUTINES SECTION 


THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST. 


FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO 

INPUTS: NONE 
IMPLICIT INPUTS: NONE 
OUTPUTS: RANUM 
IMPLICIT OUTPUTS: NONE 
SUBORDINATE ROUTINES USED: NONE 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: SUB 


.SBTTL - 


MOD U.1.0 - RANDOM GENERATOR 


1460 004560 

012700 

000001 

RANGEN: 

MOV 

fl.RO 

1461 004564 

063700 

004646 


ADD 

RAN1.R0 

1462 004570 

063700 

004650 


ADD 

RAN2.R0 

1463 004574 

042700 

1 70000 


B1C 

#1 70000. RO 

1464 004600 

000241 



CL C 


1465 004602 

006100 



POL 

RO 

1466 004604 

006100 



ROL 

RO 

1467 004606 

010037 

004o46 


MOV 

R0.RAN1 

1468 004612 

005000 



CLR 

RO 

1469 004614 

013700 

004650 


MOV 

RAN2.R0 

1470 004620 

006000 



ROR 

RO 

1471 004622 

CCoUOO 



ROR 

RO 

1472 004624 

063700 

004646 


ADD 

RAN1.R0 

1473 004630 

042700 

1 70000 


BIC 

f 170000.RO 

1474 004634 

010037 

004650 


MOV 

R0.RAN2 

1475 004640 

010037 

004652 


MOV 

RO. RANUM 

1476 004644 

000207 



RTS 

PC 

1477 



• ------ 



1478 004646 

000000 


RANI : 

0 


1479 034650 

000000 


RAN2: 

0 


1480 004652 

000000 


RANUM: 

0 



1481 



E 3 


SEQ 30 


GLOBAL AREAS 
MOD U.A.1 

1484 

1485 

1486 

1487 004654 

1488 004656 

1489 004662 

1490 004670 

1491 004672 

1492 004700 

1493 004702 

1494 004710 

1495 004712 

1496 004720 

1497 004722 

1498 004730 

1499 004732 

1500 004740 

1501 004742 

1502 004750 

1503 

1504 004752 

1505 004754 

1506 

1507 

1508 

1509 

1510 

1511 004756 

1512 004762 

1513 004764 

1514 004770 

1515 004772 

1516 004774 

1517 004776 

1518 005000 

1 5 1 9 005004 

1520 005006 

1521 005012 

1522 005016 

1523 005022 

1524 

1525 005024 

1526 
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- CONVERSION UUT CODE — > SUTPTR 

.SBTTL - MOD U.A.1 - CONVERSION UUT CODE ~> SUTPTR 


000240 



CVUTST : NOP 




005037 

004754 


CLR 

SUTCV 

CLEAR SYS UNDER TEST CONVERTED 


032737 

000001 

004752 

BIT 

#1. CVUNIT 

IF DRIVE #0. 


001014 



BNE 

2S 

SELECTED, THEN 


032737 

000002 

004752 

BIT 

#2. CVUNIT 

IF UNIT #0 OR RXXX SIDE #0, 


001004 



BNE 

IS 

THEN 


052737 

000001 

004754 

BIS 

#1 .SUTCV 

SET FOR UNIT CODE=00 IN SUT WORD 


000417 



BP 

ENDCVT 

BR TO END 


052737 

000004 

004754 

1$: BIS 

#4. SUTCV 

ELSE. SET FOR UNIT C0DE=10 IN SUT 

WORD 

000413 



BR 

ENDCVT 

BR TO END 


032737 

000002 

004752 

2$: BIT 

#2. CVUNIT 

IF UNIT #0 OR RXXX SIDE #0. 


001004 



BNE 

3S 

THEN 


052737 

000002 

004754 

BIS 

#2. SUTCV 

SET FOR UNIT C0DE=01 IN SUT WORD 


000403 



BR 

ENDCVT 

BR TO END 


052737 

000010 

004754 

3$: BIS 

#10, SUTCV 

ELSE, SET FOR UNIT C0DE=11 IN SUT 

WORD 

000207 



ENDCVT: RTS 

PC 

RETURN 


000000 



CVUNIT: 0 


; UNI T CODE TO BE CONVERTED 


000000 



SUTCV: 0 


SYS UNDER TEST AS CONVERTED 





,mrt ii a 1 — 

cub unm ii c — 






$ nUD 1 

tNII nuuuLc 






.SBTTL - 

HOD U.A.2 - CONVERSION SUTPTR — > UUT CODE 


013705 

021426 


0 

C VS TUT : MOV 

SUTPTR. R5 

SAVE SUT POINTER IN R5 


005004 



CLR 

R4 

CLEAR R4 (RESET UNIT CODE) 


032705 

000001 


IS: BIT 

#1 ,R5 

IF ISB R5 


001003 



BNE 

2 S 

EQUALS 1 .THEN BR TO 2S 


006205 



ASR 

R5 

SHIFT RIGHT R5 


005204 



INC 

R4 

INCREMENT R4 


000772 



BR 

IS 

BR TO IS 


010437 

005024 


21: MOV 

R4. UNITST 

THEN R4 CONTAINS UUT CODE 


006304 



ASL 

R4 

DOUBLE UNIT CODE FOR ADR 


010437 

002240 


ffOV 

R4.UUT0FF 

SET UUT OFFSET 


062704 

002336 


ADD 

#UT00,R4 

GET UUT UNIT# FOR PRINT 


Cl 1437 

002334 


MOV 

(R4) .UNIT 

SET UNIT=PRINT UNI T # 


000207 



RTS 

PC 

RETURN 


000000 



UNITST: 0 







;MOD 2.0A — 

— END MODULE 
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MOD U.DEV.REC - DEVICE READ ERROR CODE 


1529 .SBTTl 

1530 ; 

1531 


1532 005026 

000240 



RDERCD: 

NOP 

1533 005030 

013705 

002236 



MOV 

1 5*4 005034 

012737 

000001 

002272 


MOV 

1535 005042 

012737 

000017 

005136 


MOV 

1536 005050 

053737 

002242 

005136 


BIS 

1537 005056 

013715 

005136 



MOV 

1538 005062 

013701 

002236 



MOV 

1539 005066 

062701 

000002 



ADD 

1540 005072 

013737 

002236 

025332 


MOV 

1541 005100 

012737 

000200 

025330 


MOV 

1542 005106 

004737 

025230 



CALL 

1543 005112 

032715 

000200 


I ARE C : 

BIT 

1544 005116 

001004 




BNE 

1545 005120 

052737 

040007 

002274 


BIS 

1546 005126 

000402 




BR 

1547 005130 

012711 

033544 


LAREC: 

MOV 

1548 005134 

000207 



XREC: 

RETURN 


1549 ; 

1550 005136 000000 RECCMD: 0 

1551 

1552 

1553 005140 ENDMOD 

1554 


SEO 31 


f 3 


U.DEV.REC - DEVICE READ ERROR CODE 


UUTADR ,R5 
#1.PRTECD 
#17. RECCMD 
DEN. RECCMD 
RECCMD. CR5) 
UUTADR, R1 
#2,R1 

UUTADR, CSRADR 
fTRBIT.RDYUD 
DELAY 
#200. (R5) 
LAREC 

#40007, ERRSY 
XREC 

#XERUUT.(R1) 


SET R5 = UUT ADDRESS 

SET PRINT ERROR CODE FLAG 

SET UUT EXTENDED ERROR CODE 

SET DEN FOR CMD 

SEND CMD TO UUT 

GET UUT ADDR 

CAL DATA ADR 

SET CSR ADR 

SET “TR" BIT TEST 

CALL DELAY MODULE-yAIT FOR TR 

IF TR 

NOT SET 

THEN SET “TR" ERR ON FUNCTION 
BR TO END MOD 

SEND BASE ADDR FOR EXTEND ERR CODE 
RETURN 


; COMMAND WORD USED IN THIS MODULE 




SEQ 32 


S THE 

istical reports. 


SETUP CTR HDR 

PRINT HEADER 

PRINT SEO CTR 

SETUP REPORT HEADER PART 1 

PRINT HEADER 
SETUP DATA PART 1 

ZERO LINE COUNTER 
CLEAR PRINT NODE 
SET BEGIN ADR OF DATA-PART 1 
SET BEGIN ADR OF TABLE LABLES-PART 1 
SET # OF LINES TO PRINT 
PRINT DATA 
SETUP HEADER PART 2 

PRINT HEADER 
SETUP DATA PART 2 

SET LINE COUNTERS 
SET PRINT MODE=1 

SET BEGIN ADR ERROR CODE DATA-PART 2 
SET ERROR CODE PRINT-FORMATED MSG-PART 2 
SET » OF LINES TO PRINT 

PRINT DATA 

SETUP HEADER PART 3 

PRINT HEADER 


SETUP DATA PART 3 


PRINT DATA PART 3 


;UNIT # 

;UNI T COUNT 
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PRINT REPORT HEADER 

1657 

1658 

1659 005414 005005 

1660 005416 013705 005504 

1661 005422 004737 006030 

1662 005426 012737 002336 005410 

1663 005434 012737 000004 005412 

1664 005442 005777 177742 

1665 005446 100407 

1666 005450 017737 177734 006026 

1667 005456 013705 005506 

1668 005462 004737 006002 

1669 005466 062737 000002 005410 

1670 005^74 005337 005412 

1671 005500 001360 

1672 OOSSO* 1 000207 

1673 

1674 005'. 000000 

1675 005506 000000 

1676 

1677 

1678 

1679 

1680 005510 000240 

1681 005512 005737 005644 

1682 005516 001410 

1683 005520 013737 005636 006026 

1684 005526 013705 005642 

1685 005532 004737 006002 

1686 005536 000403 

1687 005540 012105 

1688 005542 004737 006030 

1689 005546 012737 002336 005410 

1690 005554 012737 000004 005412 

1691 005562 012237 006026 

1692 005566 005777 177616 

1693 005572 100404 

1694 005574 012705 006243 

1695 005600 004737 006002 

1696 005604 062737 000002 005410 

1697 005612 005337 005412 

1698 005616 001361 

1699 005620 005237 005636 

1700 005624 023737 005640 005636 

17C1 005632 101327 

1702 005634 000207 

1703 

1704 005636 000000 

1705 005640 000000 

1 706 005642 000000 

1707 005644 000000 

1708 


H 3 

-DEC-82 13:50 PAGE 40 


. SBTTL - PRINT REPORT HEADER 


PRTHDR: 

IS: 

2S: 

CLR 

MOV 

CALL 

MOV 

MOV 

T ST 

BMI 

MOV 

MOV 

CALL 

ADD 

DEC 

BNE 

RTS 

R3 

PRT1 ,R5 

PREPT2 
#UTOO,UTTST 
#4 .UTCNT 

BUTTST 

2$ 

8UTTST.PAR 

PRT2.R5 

PREPT1 

#2.UTTST 

UTCNT 

IS 

PC 

SETUP 1ST PART OF HEADER PRINT 

PRINT 1ST PART 

GET BEGIN ADR OF UNI TS— >TESTED FLAGS 
SET UNIT COUNTER 

IF UNIT TESTED FLAG 

N0T=-1 , THEN 

SET UNIT TESTED # FOR PRINT 

SET UNIT MSG 

PRINT UNIT # 

ADVANCE ADR OF UNIT TESTED Ft. AG 
DECREMENT UNIT COUNT 

IF UNIT COUNT=0, THEN 

RETURN 

PRT1 : 

0 



PRT2 : 

0 



• 

.SBTTL 

- 

PRINT REPORT DATA 


PRTDAT : 

NOP 



IS: 

T ST 
BEO 

PRNUM 

2S 

IF MODE 


MOV 

LINECT.PAR 

SETUP LINE # TO PRINT 


MOV 

LINTYP, R5 

SETUP LINE TYPE TO PRINT 


CALL 

BR 

PREPT1 

3S 

PRINT LINE « 

2S: 

MOV 

(R1 )*,R5 

PREPT2 

SETUP LOG TITLE ADR 


CALL 

PRINT LOG TITLES 

3S: 

MOV 

WTOO.UTTST 

GET UNIT # FOR PRINT 


MOV 

#4, UTCNT 
(R2)*,PAR 

BUTTST 

SETUP UNIT COUNT 

4$: 

MOV 

SETUP DATA TO PRINT 


TST 

IF UNIT # NOT = -1 


BMI 

5S 

THEN 


MOV 

#PTDAT1.R5 

SETUP TO PRINT 


CALL 

PREPT1 

PRINT DATA 

5S : 

ADD 

#2,UTTST 

SETUP TO CK NEXT UNIT 


DEC 

UTCNT 

DECREMENT UNIT COUNT 


BNE 

4S 

IF DONE ALL UNITS THEN 


INC 

LINECT 

INCREMENT LINE COUNT 


CMP 

LINES. LINECT 

IF DONE ALL 


BHI 

IS 

LINES. THEN 


RTS 

PC 

RETURN 

LINECT: 

0 


LINE COUNTER 

LINES: 

0 


# OF LINES TO PRINT 

LINTYP: 

0 


LINE PRINT TYPE. 

PRNUM: 

0 


PRINT MODE 
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PRINT READ/UR1 TE SECTOR COUNTERS 


1711 




.sbttl 

PRINT READ/WRITE 

1 f lc 

1713 

1714 005646 

000240 



■ 

PRTCTR: 

NOP 


1715 005650 

005037 

005640 



CLR 

LINES 

1716 005654 

012702 

007314 



MOV 

#READSC.R2 

1717 005660 

012705 

006116 



MOV 

fPTRDSC ,R5 

1718 005664 

004737 

006002 


1$: 

CALL 

PREPT1 

1719 005670 

012737 

002336 

005410 


MOV 

AUTOO.UTTST 

1720 005676 

012737 

000004 

005412 


MOV 

A4.UTCNT 

1721 005704 

005777 

177500 


2$: 

TST 

aUTTST 

1722 005710 

100410 




BMI 

5$ 

1723 005712 

062702 

000002 



ADD 

#2.R2 

(R21.R4 

1724 005716 

011204 




MOV 

1725 005720 

014203 




MOV 

-(R21.R3 

1726 005722 

012705 

006315 



MOV 

fPTFMNl ,R5 

1727 005726 

004737 

006050 



CALL 

PREPT3 

1728 005732 

062737 

000002 

005410 

5S: 

ADD 

A2.UTTST 

1729 005740 

062702 

000004 



ADD 

#4.R2 

UTCNT 

1730 005744 

005337 

005412 



DEC 

1731 005750 

001355 




BNE 

2$ 

1732 005752 

005237 

005640 



INC 

LINES 

1733 005756 

022737 

000002 

005640 


CMP 

#2. LINES 

1734 005764 

001405 




BEQ 

6$ 

1735 005766 

012702 

007334 



MOV 

#WRITSC,R2 

1736 005772 

012705 

006147 



MOV 

#PTWTSC.R5 

1737 005776 

000732 




BR 

1$ 

1738 006000 

000207 



6$ : 

RETURN 



1739 


SECTOR COUNTERS 


CLEAR LINE COUNTER 

GET ADDRESS OF READ SECTOR CTR 

SETUP READ SECTORS MSG 

CALL PRINT REPORT-MSG 

GET UNIT « FOR PRINT 

SETUP UNIT COUNT 

IF UNIT # 

NOT=-1 . THEN 

INCREMENT ADR TO UPPER WORD 
SETUP DATA UPPER PART FOR PRINT 
SETUP DATA LOWER PART FOR PRINT 
SETUP TO PRINT DATA 
PRINT DATA 

SETUP TO CK NEXT UNIT 
SET ADR TO NEXT CTR 
DECREMENT UNIT COUNT 
IF DONE THIS LINE. THEN 
INCREMENT LINE CTR 
DO WHILE LINE CTR 
EQUALS <2 

GET ADDRESS OF WRITE SECTOR CTR 
SETUP WRITE SECTORS MSG 
BR TO WRITE SECTORS SECTION 
RETURN 



MISCELLANEOUS SECTIONS MACRO M1200 15 

PRINT REPORT TYPE 1 


1742 




1743 




1744 006002 

1745 006024 

1746 

000207 



1747 006026 

1748 

1749 

000000 



1750 

1751 

1752 

1753 

1754 

1755 

1756 006030 

1757 006046 

1758 

1759 

000207 



1760 

1761 

1762 

1763 

1764 

1765 

1766 006050 

1767 006072 

1768 

000207 



1769 006074 

045 

116 

045 

1770 006105 

045 

116 

045 

1771 006116 

045 

116 

045 

1772 006147 

045 

116 

045 

1773 006200 

045 

116 

045 

1774 006225 

045 

116 

045 

1775 006243 

045 

101 

040 

1776 006253 

045 

123 

061 

1777 006274 

045 

123 

062 

1778 006315 

045 

123 

062 

1779 006327 

045 

116 

045 

1780 006343 

1781 

1782 

045 

116 

045 
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.SBTTL - PRINT REPORT TYPE 1 


PREPT1 

PRINTS 

R5.PAR 



RTS 

PC 


PAR: 

0 

# 


« 

.SBTTL 

PRINT REPORT TYPE ? 


PREPT2 

PRINTS 

R5 



RTS 

PC 


# 

•SBTTL 

PRINT REPORT TYPE 3 


PREPT3 

PRINTS 

R5,R4,R3 



RETURN 



PT20SP 

.ASC1Z 

/XNXNXS20/ 


PT19SP 

.ASCII 

/XNXNXS19/ 


PTRDSC 

.ASCII 

/XNXA# SECTOR READS 

(8)=/ 

PTUTSC 

.ASCIZ 

/XNXA# SECTOR WRITES 

(8)=/ 

PTEC: 

.ASCIZ 

/XNXNXAERRXNXACODE* 

/ 

PTTK: 

.ASCIZ 

/xnxnxatrack# / 


PTDAT1 

.ASCIZ 

m XD6 / 


PTUNT1 

.ASCIZ 

/XSIXAUNITfXDIXSI/ 


PTUNT2 

.ASCIZ 

/XS2XAUNI T #XD1 XS5/ 


PTFMN1 

.ASCIZ 

/XS2X06X0S/ 


PTECN: 

•ASCIZ 

/XNX02XA0XS3/ 


PTTKN: 

.ASCIZ 

.EVEN 

/XNXS1XD2XS3/ 





rt 



SEQ 36 


K 3 
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PRINT REPORT TYPE 3 


1785 







1766 006360 

006426 



PRIDXX: 

.WORD 

PR1D01 

1787 006362 

006455 




.UORD 

PRID02 

1788 006364 

006504 




.WORD 

PRID03 

1789 006366 

006533 




.UORD 

PR1D04 

1790 006370 

006562 




.UORD 

PRID05 

1791 006372 

00661 1 




.WORD 

PRID06 

1792 006374 

006640 




.WORD 

PRID07 

1793 006376 

006667 




.UORD 

PR1D08 

1 794 006400 

006716 




.UORD 

PRID09 

1795 006402 

006745 




.UORD 

PR1D10 

1796 006404 

006774 




.UORD 

PRID11 

1797 006406 

007023 




.UORD 

PRID12 

1798 006410 

007052 




.UORD 

PRID13 

1799 006412 

007101 




.UORD 

PRID14 

1800 006414 

007130 




.UORD 

PRID15 

1801 006416 

007157 




.UORD 

PRID16 

1802 006420 

007206 




.WORD 

PRID1 7 

1803 006422 

007235 




.UORD 

PRID18 

1804 006424 

1805 

007264 




.UORD 

PRID19 




• 



1806 

1 OU ( 





m m m 


1808 006426 

045 

116 

045 

PRID01: 

.ASCII 

/XNXACHECK SUM: / 

1809 006455 

045 

116 

045 

PRID02: 

.ASCII 

/XNXAF ILL-EMP BUFF LOG:/ 

1810 006504 

045 

116 

045 

PR J 003 : 

.ASCIZ 

/XNXANO ERR BIT: / 

1811 006533 

045 

116 

045 

PRID04: 

.ASCII 

/XNXA INTER-NO DONE ERR:/ 

1812 006562 

045 

116 

045 

PRI005: 

.ASCII 

/XNXA1NTERRUPT ERR: / 

1815 006611 

045 

116 

045 

PR I 006: 

.ASCII 

/XNXASEEK: / 

1814 006640 

045 

116 

045 

PRID07: 

.ASCII 

/XNXACRC ERR: / 

1815 006667 

045 

116 

045 

PR I 008: 

.ASCIZ 

/XNXACRC BAD: / 

1816 006716 

045 

116 

045 

PR I 009: 

.ASCIZ 

/XNXAREAD ERR: / 

1817 006745 

045 

116 

045 

PRID10: 

.ASCIZ 

/XNXAUR1TE ERR: / 

1818 006774 

045 

116 

045 

PRID11: 

.ASCIZ 

/XNXADATA ERR: / 

1819 007023 

045 

116 

045 

PRID12: 

.ASCIZ 

/XNXADEL. DATA ERR: / 

1820 007052 

045 

116 

045 

PRID13: 

.ASCIZ 

/XNXAHRD SEEK: / 

1821 007101 

045 

116 

045 

PRID14: 

.ASCIZ 

/XNXAHRD CRC ERR: / 

1822 007130 

045 

116 

045 

PRID15: 

.ASCIZ 

/XNXAHRD CRC BAD: / 

1823 007157 

045 

116 

045 

PRID16: 

.ASCIZ 

/XNXAHRD READ: / 

1824 007206 

045 

116 

045 

PR 1017: 

.ASCIZ 

/XNXAHRD URITE: / 

1825 007235 

045 

116 

045 

PRID18: 

•ASCIZ 

/XNXAHRD DATA: / 

1826 037264 

045 

116 

045 

PRI019: 

.ASCIZ 

/XNXAHRD DEL. DATA ERR:/ 

1827 

1828 





.EVEN 



>■ 

N 




S6Q 37 


TABLES 


READ SECTOR COUNTER 
WRITE SECTOR COUNTER 
CKSUM LOG 

FILL/EMPTY BUFFER ERROR LOG 

NO ERR BIT LOG 

INTERRUPT - NO DONE LOG 

INTERRUPT ERR 

SEEa ERR 

CRC ERR 

CRC BAD ERR 

READ ERR 

WRITE ERR 

DATA ERR 

DEL DATA ERR 

HARD SEEK ERR 

HARD CRC ERR 

HARD CRC BAD ERR 

HARD READ ERR 

HARD WRITE ERR 

HARD DATA ERR 

HARD DEL DATA ERR 

ERROR CODE LOG 

TRACK ERR LOG 


END TABLE 


;RX CSR - HARDWARE P-TA8LE OFFSET 
.•DON'T CARE 

;RX DRIVER-HARDWARE P-TABLE OFFSET 



m 3 


MISCELLANEOUS SECTIONS 
LOAD DEVICE PROTECTION 

1884 

1885 

1886 

1887 

1888 

1889 

1890 

1891 011250 

1892 011250 005037 

1897 011254 

1898 011262 

1899 011270 

1900 011272 052737 

1901 011300 000507 

1902 011302 

1903 011310 

1904 011312 005037 

1905 0113^6 005037 

1906 011322 005037 

1907 011326 005037 

1908 011332 005037 

1909 011336 023727 

1910 011344 003051 

1911 011346 
191? 011354 

1913 011356 052737 

1914 011364 005037 

1915 011370 012737 

1916 011376 012737 

1917 011404 012737 

1918 011412 012737 

1919 011420 012737 

1920 011426 062737 

1921 011434 023737 

1922 011442 001426 

1923 011444 

1924 011456 

1925 011460 000240 

1926 Oil 462 004737 

1927 011466 000757 

1928 011470 

1929 011510 012737 

1930 011516 

1931 011520 

1932 011546 005737 

1933 011552 001413 

1934 011554 

1935 011602 

1955 

1956 011604 000000 

1957 

1958 011606 045 

1959 

1960 
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.SBTTL INITIALIZE SECTION 

;♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE BEGINNING OF EACH PASS. PRI07 HAS BEEN CHANGED TO PRI06 
; TO MAKE THIS DIAGNOSTIC SBC-11/21 PROCESSOR SPECIFIC. 


BGNIN1T 


002266 


INI T 

CLR 

FLAGS 

CLEAR ALL FLAGS 




RFLAGS 

FLGDRS 

GET "DRS“ FLAGS 




READEF 

fEF.PUR 

IF POWER FAIL FLAG IS 




BNCOMPLETE IS 

SET. THEN 

000001 

002266 


BIS 

APOUERF, FLAGS 

set power fail flag 




BR 

FIN 

BR TO ‘FIN* 



IS: 

READEF 

#EF .START 

IF START fLAG 




BNCOMPLETE 2S 

SET. THEN 

002220 



CLR 

UOADR 

CLEAR SYS UO ADDRESS 

002222 



CLR 

U1ADR 

CLEAR SYS U1 ADDRESS 

002224 



CLR 

UOVECT 

CLEAR SYS UO VECTOR 

002226 



CLR 

UlVECT 

CLEAR SYS U1 VECTOR 

002232 


2S : 

CLR 

SUT 

CLEAR SYS UNDER TST WORD 

002012 

000004 


CMP 

LSUNI T ,#4 

IF 4 UNITS OR LESS SELECTED 




BGT 

INI TER 

THEN 




READEF 

#EF. RESTART 

IF RESTART FLAG 




BNCOMPLETE SETUP 

SET. THEN 

000002 

002266 


BIS 

irestar, flags 

SET RESTART FLAG 

002270 


SETUP: 

CLR 

ABORT 

clear abort flag 

1 77777 

002334 


MOV 

#-1 .UNIT 

RESTORE UNIT « CTR 

177777 

002336 


MOV 

#-1.UT00 

RESET UNI T4T1 

177777 

002340 


MOV 

f-I.UTOI 

RESET UNI T#2 

177777 

002342 


MOV 

#-1 .UT10 

RESET UNI T#3 

177777 

002344 


MOV 

A-1.UT11 

RESET UNI Tf 4 

000001 

002334 

1$: 

ADD 

#1 .UNIT 

INCREMENT TO NEXT UNIT 

002012 

002334 


CMP 

LSUNIT.UNIT 

IF LOGICAL UNIT 8 UNIT 




8E0 

FIN 

NOT YET EQUAL. THEN 




GPHARD 

UNIT.PLOC 

GET HARDWARE P-TABLE 




BNCOMPLETE IS 

IF P-TABLE AVAILABLE. THEN 




NOP 



011656 



JSR 

PC.UNPKHP 

CALL UNPACK HARDWARE P-TABLE 




BR 

IS 

BR TO BEGIN DO 



INI TER : 

PRINTF 

#INTER1 

PRINT "TOO MANY UNITS" 

000001 

002270 


MOV 

#1 .ABORT 

SET ABORT 




DOCLN 


DO CLEAN UP 



FIN: 

SETVEC 

UOVECT. #INTH0.#PRI06 

SET SYS UO VECTOR 

002226 



TST 

UlVECT 

IF SYS U1 VECTOR 




BEO 

2% 

NOT =0, THEN 



IS: 

SETVEC 

UlVECT. #INTHl.#PRI06 

SET SYS U1 VECTOR 



2$: 

ENDINIT 





hot: 

.WORD 

0 


116 

045 

INTER1 : 

. ASCIZ 

/MAONLY FOUR UNITS ALLOWED. START OVER/ 


.EVEN 



N 3 
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MOD 1.1 - UNPACK HARDWARE P-TABLES 


1963 




. SBTTL 

- 

MOD 1.1 - UNPACK 

1964 







1965 







1966 011656 

000240 



UNPKHP: 

NOP 


1967 011660 

005037 

012330 



CLP 

UNT 

1968 011664 

013701 

011604 



MOV 

PL0C.R1 

1969 011670 

005737 

002334 


I F A 1 1 : 

TST 

UNIT 

1970 011674 

001005 




BNE 

IFBI1 

1971 011676 

012137 

002220 



MOV 

(R1H.U0ADR 

1972 011702 

012137 

002224 



MOV 

(RD + .UOVECT 

1973 011706 

000426 




BR 

IFEI1 

1974 011710 

021137 

002220 


IFBI1: 

CMP 

(RD.UOADR 

1975 01 1714 

001003 




BNE 

IFCI1 

1976 011716 

062701 

000004 



ADD 

#4,R1 

1977 011722 

000420 




BR 

IFEI1 

1978 011724 

005737 

002222 


IF C 1 1 : 

TST 

U1ADR 

1979 Cl 1730 

001005 




BNE 

IFDI1 

1980 011732 

012137 

002222 



MOV 

(Rm.UlADR 

1981 011736 

012137 

002226 



MOV 

(RD + .U1VECT 

1982 011742 

000405 




BR 

EICI1 

1983 011744 

021137 

002222 


IFDI1: 

CMP 

(R1 J.U1ADR 

1984 011750 

001153 




BNE 

ELD 1 1 

1985 011752 

062701 

000004 



ADD 

#4,R1 

1986 011756 

012737 

000001 

012330 

EICI1: 

MOV 

Ml ,UNT 

1987 011764 

005737 

002172 


IFEI1: 

TST 

RXXX 

1988 011770 

001445 




BEQ 

IF 1 11 

1989 011772 

005711 



IF F 1 1 : 

TST 

(R1 ) 

1990 011774 

001021 




BNE 

IFHI1 

1991 011776 

062701 

000002 


IFGI1: 

ADD 

#2.R1 

1992 012002 

005711 




TST 

(R 1 ) 

1993 012004 

001006 




BNE 

E LG 1 1 

1994 012006 

052737 

000001 

002232 


BIS 

#BITO,SUT 

.995 012014 

005037 

012326 



CLR 

UNTCOD 

1996 012020 

000501 




BR 

EIFI1 

1997 012022 

052737 

000004 

002232 

ELGI1: 

BIS 

JBIT2.SUT 

1998 012030 

012737 

000002 

012326 


MOV 

#2, UNTCOD 

1999 012036 

000472 




BR 

E IF 1 1 

2000 012040 

062701 

000002 


IFHI1 : 

ADD 

4T2.R1 

2001 012044 

005711 




TST 

( R 1 ) 

2002 012046 

001007 




BNE 

ELH11 

2003 012050 

052737 

000002 

002232 


BIS 

»BIT1,SUT 

2004 012056 

012737 

000001 

012326 


MOV 

#1 .UNTCOD 

2005 012064 

000457 




BR 

E IF 1 1 

2006 012066 

052737 

000010 

002232 

ELHI1 : 

BIS 

#BIT3,SUT 

2007 012074 

012737 

000003 

012326 


MOV 

M3 . UNTCOD 

2008 012102 

000450 




BR 

E IF 1 1 

2009 012104 

062701 

000002 


IF 1 11 : 

ADD 

M2. HI 

2010 012110 

005711 




TST 

(R1 ) 

2011 012112 

001056 




BNE 

EL 1 11 

2012 012114 

162701 

000002 


IF J 11 : 

SUB 

#2.R1 

2013 012120 

005711 




TST 

(R1 ) 

2014 012122 

001020 




BNE 

IFLI1 

2015 012124 

005737 

012330 


IFKI1 : 

TST 

UNT 

2016 012130 

001006 




BNE 

ELKI1 

2017 012132 

052737 

000001 

002232 


BIS 

ATBITO.SUT 

2018 012140 

005037 

012326 



CLR 

UNTCOD 

2019 012144 

000427 




BR 

E IF 11 


SEG 39 


P-TABIES 


CLEAR UNT 

SAVE P-TABLE LOCATION 
IF UNIT 
IS ZERO 

LOAD UNIT #0 ADR 
LOAD UNIT #0 VECTOR 
BR TO END IF ’A’ 

IF THIS ADR 
EQUALS UNIT MO ADR 
INCREMENT TEMP #1 BY 4 
BR TO END IF ’A* 

IF UNI ADDRESS 
NOT LOADED PREVIOUSLY 
LOAD UNIT#1 ADR 
LOAD UNIT #1 VECTOR 
BR TO END IF 'C* 

IF UNIT ADR 

EQUALS UNIT Ml ADR 

THEN ADD 4 TO TEMP #1 

SET UNT=1 

IF RXXX 

THEN 

IF DRIVE MO 
THEN 

ADD 2 TO TEMP #1 
IF SIDE MO SELECTED 
THEN 

SET SIDE #0, DRIVE #0 
CLEAR UNIT CODE 
BR TO END IF ’F* 

SET SIDE Ml. DRIVE MO 
SET UNIT CODE = 10 
BR TO END IF 'F* 

ADD 2 TO TEMP Ml 
IF SIDE MO SELECTED 
THEN 

SET SIDE MO. DRIVE #1 
SET UNIT CODE = 01 
BR TO END IF *F * 

SET SIDE Ml. DRIVE #1 
SET UNIT CODE = 11 
BR TO END IF *F ’ 

ADD 2 TO R1 
IF SIDE 

EQUALS 0, THEN 
SUBTRACT 2 FROM TEMP #1 
IF DRIVE 

EQUALS ZERO, THEN 

IF UNIT 

EQUALS ZERO 

SET UNIT #0. DRIVE #0 

CLEAR UNIT CODE 

BR TO END IF ' F * 



B 4 


SCO 40 
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MOD 1.1 - UNPACK HARDWARE P-TABLES 


2020 012146 

2021 012154 

2022 012162 

2023 012164 

2024 012170 

2025 012172 

2026 012200 

2027 012206 

2028 012210 

2029 012216 

2030 012224 

2031 012230 

2032 012234 

2033 012236 

2034 012240 

2035 012244 

2036 012246 

2037 012250 

2038 012274 

2039 012276 

2040 012300 

2041 012324 

2042 

2043 012326 

2044 012330 

2045 

2046 012332 

2047 012432 

20*.8 

2049 


052737 

012737 

000420 

005737 

001007 

052737 

012737 

000406 

052737 

012737 

012701 

013702 

006302 

060201 

013703 

010311 

000426 


000412 

000207 

000000 

000000 


000004 

000002 

012330 

000002 

000001 

000010 

000003 

002336 

012326 


002334 


002232 

012326 


002232 

012326 

002232 

012326 


ELKI1 : 

BIS 

#BI T2.SUT 

SET UNIT #1. DRIVE #0 

MOV 

#2, UNT COD 

SET UNIT CODE = 10 

BR TO END IF • F • 


BR 

E IF 11 

IFLI1: 

TST 

UNT 

IF UNIT 


BNE 

ELLI1 

EQUALS 0 


BIS 

#BIT1,SUT 

SET UNIT 00 . DRIVE #1 


MOV 

#1 ,UNTCOD 

SET UNIT CODE = 01 

BR TO END IF *F‘ 


BR 

E IF 11 

ELL 1 1 : 

BIS 

#BIT3.SUT 

SET UNIT #1. DRIVE #1 


MOV 

#3,UNTC0D 

SET UNIT CODE = 11 

E IF 11 : 

MOV 

#UT00.R1 

GET BEG1N1NG OF UNIT CODE TABLE 

MOV 

UNTC0D.R2 

GET UNIT CODE 


ASL 

R2 

DOUBLE R2 FOR ADDRESS! G 


ADD 

R2.R1 

FIND ADDRESS FOR THIS UNIT CODE 


MOV 

UNIT ,R3 

GET LOGICAL UNIT# 


MOV 

R3,(R1) 

SET USER UNIT# FOR PRINT OUT 


BR 

ENDI1 

BR TO END MOD 

PRINT “MUST SELECT RXXX TO SEL SIDE’* 

ELI 11 : 

PRINTF 

DOCLN 

«INMSG2.UN1T 



BR 

END11 

BR TO END MOD 

PRINT “NOT SCHEDULED-TUO BUS ADR ONLY" 

ELD 1 1 : 

PRINTF 

#1NMSG3.UN1T 

ENDI1 : 

RTS 

PC 

RETURN 

LINT COD: 

0 


;UNIT CODE 

UNT: 

0 


;UNIT FLAG 


1NMSG2: .ASCIZ /XNXAUNIT#XD1XA ANS RXXX EXPANSION TO SELECT SIDE #1->START OVER/ 
INMSG3: .ASCIZ /XNXAUNIT#XD1XA NOT SCHEDULED-TUO BUS ADDRESSESS ONLVXN/ 

.EVEN 

.-MOD 1.1 END MODULE 



C 4 


SEQ 41 
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. SBTTl CLEANUP CODING SECTION 

; + THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
; AT THE END OF EACH PASS. 


BGNCLN 

NOP 

CLRVEC UOVECT 
T ST U1VECT 

BEG 2S 

CLRVEC U1VECT 
2$: BRESET 

ENDCLN 


• EVEN 



0 4 


SEO 42 


MISCELLANEOUS SECTIONS MACRO M1200 1 5-DEC-82 13:50 PAGE 56 

AUTO DROP SECTION 


2089 



. S8TTL 'AUTO DROP SECTION 



<: r )VU 







2091 012552 



BGNAUTO 




2092 012552 

005737 

002220 

IAATDP: T ST 

UOADR 

IF SYS UNIT 0 ADDRESS 


2093 012556 

001447 


BEQ 

IDATDP 

N0T=0. THEN 


2094 012*60 

012703 

002336 

MOV 

#UT00.R3 

SETUP R3 = ADR OF SELECTED 

UNIT 

2095 012564 

013702 

002220 

MOV 

UOADR. R2 

GET SYS UNIT 0 ADDRESS 


2096 012570 

004737 

012774 

CALL 

ADRTST 

CALL ADDRESSING TEST 


2097 012574 

C05737 

002270 

I BAT DP : TST 

ABORT 

IF ABORT FLAG 


2098 012600 

001436 


BEQ 

IDATDP 

SET. THEN 


2099 012602 

005737 

002336 

IGATDP: TST 

UTOO 

IF UTOO SELECTED 


2100 012606 

100403 


BMI 

IHATDP 

THEN 


2101 012610 



DODU 

UTOO 

DROP UNIT 00 


2102 012616 

005737 

002340 

1HATDP: TST 

UT01 

IF UT01 SELECTED 


2103 012622 

100403 


BMI 

ICATDP 

THEN 


2104 O 1 2624 



DODU 

UT01 

DROP UNIT 01 


2105 012632 

005737 

002172 

ICATDP: TST 

RXXX 

IF RXXX DEVICE 


2106 012636 

001417 


BEQ 

IDATDP 

THEN 


2107 012640 

012703 

002342 

MOV 

#UT10,R3 

SETUP R3 = ADR OF SELECTED 

UNIT 

2108 012644 

005737 

002342 

IIATDP: TST 

UT10 

IF UT10 SELECTED 


2109 012650 

100403 


BMI 

IJATDP 

THEN 


2110 012652 



DODU 

UT10 

DROP UNIT 10 


2111 012660 

005737 

002344 

I J ATOP : TST 

U T 1 1 

IF UT11 SELECTED 


2112 012664 

100440 


BMI 

XATDP 

THEN 


2113 012666 



DODU 

UT1 1 

DROP UNIT 11 


2114 012674 

000434 


BR 

XATDP 

BR TO EXIT 


2115 012676 

005737 

002222 

1DATDP: TST 

Ul ADR 

IF SYS UNIT 1 ADDRESS 


2116 012702 

001425 


BEQ 

IFATDP 

N0T=0. THEN 


2117 012704 

012703 

002342 

MOV 

#UT10,R3 

SETUP R3 = ADR OF SELECTED 

UNIT 

2118 012710 

013/02 

002222 

MOV 

U1ADR.R2 

GET SYS UNT 1 ADDRESS 


2119 012714 

004737 

012774 

CALL 

ADRTST 

CALL ADDRESSING TEST 


2120 012720 

005737 

002270 

IEATDP: TST 

ABORT 

IF ABORT FLAG 


2121 012724 

001420 


BEQ 

XATDP 

SET. THEN 


2122 012726 

005737 

002342 

I ICATDP: TST 

UT10 

IF UT10 SELECTED 


2123 012732 

100403 


BMI 

ILATDP 

THEN 


2124 012734 



DODU 

UT10 

DROP UNIT 10 


2125 012742 

005737 

002344 

ILATDP: TST 

UT11 

IF UT11 SELECTED 


2126 012746 

100403 


BMI 

IFATDP 

THEN 


2127 012750 



DODU 

UT11 

DROP UNIT 11 


2128 012756 

005737 

002220 

IFATDP: TST 

UOADR 

IF SYS UNIT 0 ADDRESS 


2129 012762 

001001 


BNE 

XATDP 

EQUALS 0. THEN 


2130 012764 



DOCLN 


DO CLEAN 


2131 012766 

005037 

002270 

XATDP: CLR 

ABORT 

CLEAR ABORT FLAG 


2132 012772 

2133 



ENDAUTO 

• 





f 


4 



E 4 


MISCELLANEOUS SECTIONS MACRO M1200 1 5-DEC-82 13:50 PAGE 58 
TEST 0: ADDRESSING TEST 


$EQ 43 


2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 


SBTTL 


TEST 0: ADDRESSING TEST 


BGNSUB 


ENDSUB 


IF FUNCTION TEST 
THEN-SETUP TEST 

SETUP BUS TRAPS 
READ RXCSR 
RESET BUS TRAPS 
IF TRAP 

THEN-SET SYSTEM FATAL FLAG 

CALL FUNCTION TEST ERROR 
REPORT BUS TRAP ON RXCSR 

END1F 

ENDIF 


012774 

000240 



ADRTST: NOP 



012776 

005037 

002270 


CLR 

ABORT 

; CLEAR ABORT FLAG 

013002 




SETVEC 

#BTRP4.#TRAP,#PF 

106 

013030 

011201 



MOV 

( R2 > ,R1 

;READ RXCSR 

013032 




CLRVEC 

#BTRP4 


013040 

005737 

002270 


TST 

ABORT 

; IF ABORT FLAG 

013044 

001426 



BEQ 

2S 

;SET. THEN 

01 3046 

012701 

013144 


MOV 

ATRPHS1.R1 

.-SET TRAP MESSAGE 

Cl 3052 

012337 

002074 


MOV 

<R3)*.LSLUN 

; IF UNIT 

013056 

100005 



BPL 

IS 

.'NOT SELECTED. THEN 

013060 

011337 

002074 


MOV 

(R3).LSLUN 

; IF NEXT UNIT 

01306A 

100002 



BPL 

IS 

;NOT SELECTED. THEN 

013066 

005037 

002074 


CLR 

LSLUN 

.•CLEAR UNIT 

013072 

012737 

000620 

002376 

IS: MOV 

#400. .ERRNBR 

.•SETUP ERR N8R = ADR 

013100 

012737 

013124 

002400 

MOV 

fTOMSG.ERRMSG 

.■SETUP ERROR MSG 

013106 

012737 

004510 

002402 

MOV 

fPRTBI .ERRBLK 

.•SETUP ERROR BLK 

013114 

005037 

002374 


CLR 

ERRTYP 

; SETUP ERR TYP = SYS 

013120 




ERROR 


; CALL ERROR 

013122 

000207 



2S: RETURN 


.•RETURN 

013124 

101 

104 

104 

tOMSG: .ASCI2 

/ADDRESSING TEST/ 

013144 

045 

101 

040 

TRPMS1: .ASCII 

/XA BUS TRAP AT 

ADDRESS :X06XN/ 

013200 

045 

101 

040 

.ASCIZ 

/XA INTERFACE BAD OR NOT SET TO ABOVE 





.EVEN 





F 4 
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MOD U.SFT.TRP - BUS TRAP HANDLER 


2179 

2180 
2181 
2182 

2183 

2184 

2185 

2186 
2 T 87 
2188 

2189 

2190 

2191 

2192 

2193 013260 

2194 013266 

2195 013272 

2196 


052737 

005237 

000002 


004000 

002270 


002274 


SBTTL - MOD U.SFT.TRP - BUS TRAP HANDLER 

FUNCTIONAL DESCRIPTION: SUBR TO HANDLE DEVICE BUS TRAP 
INPUTS: NONE 

IMPLICIT INPUTS: BUS TRAP 
OUTPUTS: BUS TRAP ERROR, ABORT TEST 
IMPLICIT OUTPUTS: NONE 
SUBORDINATE ROUTINES USED: NONE 
FUNCTIONAL SIDE EFFECTS: NONE 
CALLING SEQUENCE: INTERRUPT 


TRAP: BIS #SYSERR.ERRSY 

INC ABORT 

RTI 


SET SYSTEM ERROR 
ABORT TEST 

RETURN FROM TRAP INTERRUPT 



MlSCEl NF^'S SECTIONS 
DROP U*T MON 

2199 

2200 
2201 
2202 

2203 

2204 

2205 
2211 

2212 013274 

2213 

2214 013274 010037 

2215 013300 005002 

2216 013302 012701 

2217 013306 023721 

2218 013312 001417 

2219 013314 005202 

2220 013316 022702 

2221 013322 101371 

2222 013324 

2223 013350 000431 

2224 013352 012741 

2225 013356 010237 

2226 013362 004737 

2227 013366 013737 

2228 013374 043737 

2229 013402 043737 

2230 013410 

2231 

2232 013434 

2233 

2234 013436 000000 

2235 013440 000000 

2236 

2237 013442 045 

2238 013503 045 


MACRO Ml 200 15-DEC-82 13:50 PAGE 62 


.SBTTL DROP UNIT SECTION 


SEQ 45 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO NO LONGER BE TESTED. 


013436 

002336 

013436 


000005 


177777 

004752 

004654 

004754 013440 
013440 002232 
013440 002230 


BGNDU 

MOV 

ClR 

MOV 

CMP 

BEQ 

INC 

CMP 

BHI 

PRINTF 

BR 

MOV 

MOV 

CALL 

MOV 

BIC 

BIC 

PRINTF 

ENDDU 


RO, UNITDP 
R2 

#UT00.R1 
UNITDP. (R1 )♦ 

2 $ 

R2 

#5.R2 

IS 

#DUMSG2, UNITDP 

#-1.-(R1) 

R2.CVUNIT 

CVUTST 

SUTCV, SUTDRP 
SUTDRP. SUT 
SUTDRP.SDD 
#DUMSG1. UNITDP 


GET LOGICAL UNIT # 

LET R2=UNIT CODE# ft UNIT COUNT /CLEAR IT! 
GET BEGIN UNIT CODE ADRESS 
IF USER UNIT# 

IS = UNIT CODE - UNIT# 

INCREMENT UNIT CODE# ft UNIT COUNT 

IF MAX # OF UNITS 

EXCEEDED. THEN 

PRINT UNIT# NOT FOUND 

BR TO EXIT 

DESELECT UNIT 

SET UNIT CODE FOR CONVERSION 

CALL MOD U.A.1 CONVERT UNIT# TO SUT CODE 

SET SUT DROP CODE = SUT CONVERTED COOE 

DROP UNIT SPEC IN SUTDRP 

CLEAR UNIT SPEC IN SUT DROP 


UNITDP: 

SUTDRP: 


;UNI T TO BE DROPPED 
.-SYS UNDER TST, DROP BIT 


DUMSG1: .ASCI 2 /XNXA DROP UNIT#XD1XA FROM TESTXN/ 

DUMSG2: . ASCI Z /XNXA COULD NOT DROP UNIT#XD1XA -NOT SELECTEDXN/ 


EVEN 
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ADD UNIT SECTION 


H 4 
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2256 

2257 

2258 

2259 

2260 
2261 
2262 
2265 

2264 013562 

2265 

2271 

2272 013562 

2273 

2285 

2286 


. SBTTl ADD UNIT SECTION 


THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE (A) TESTED FOR THE FIRST TIME. OR <B) RESUMED IN TESTING. IF 
"EF .AUNI T" IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 


BGNAU 


ENDAU 


.EVEN 


f 
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15-DEC-82 13:50 PAGE 66 


2289 

2290 

2291 

2292 

2293 

2294 

title 
sbttl 
♦ ♦ 

TEST 

SBTTL 

HARDWARE TESTS 

TEST 1: RX02 SS PERF EXERCISER 

TO EXCERCISE RX02/XX SYSTEM 

MOD 0.0 - EXERCISE A SYSTEM 

ceV) 






2296 

8GNTST 



2297 

BGNDO 



2298 


BGNSUB 


2299 



INITIALIZE (LOCATIONS. ETC.) 

2300 



CALL MOD 1.0 

2301 


END SUB 


2302 


IF ERR SYS=1 

2303 



THEN- 


2304 



CALL MOD 4.0 

2305 


ENDIF 



2306 


IF ABORT: 

: 0 

2307 



THEN- 


2308 



BGNDO 

2309 




BGNSUB 

2310 




CALL MOD 2.0 

2311 




IF ERR SYS NOT =0 

2312 





THEN- 

2313 





CALL MOD 4.0 

2314 





IF ABORT =0 

2315 





THEN- 

2316 





: CALL MOD 3.0 

2317 





ENDIF 

2318 





ELSE- 

2319 





CALL MOD 3.0 

2320 




ENDIF 

2321 




CK LOOP 

2322 




ENDSUB 

2323 



DO UNTIL ABORTS OR EXCMP=1 

2324 


ENDIF 



2325 

DO UNTIL 

SWREG BIT #1 5 NOT SET 

2326 

IF ABORT: 

:1 


2327 


THEN- 



2328 



DO CLEAN UP 

2329 


ELSE- 



2330 



DO REPORT 

2331 

ENDIF 



2332 

2333 

ENDTST 
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MOD 0.0 - EXERCISE A SYSTEM 


J 4 


2335 013564 

2336 013564 

2337 013566 

2338 013570 

2339 013574 

2340 013600 

2341 013606 

2342 013612 

2343 013616 

2344 013622 

2345 013626 

2346 013&32 

2347 013636 

2348 013642 

2349 013646 

2350 013652 

2351 013660 
2552 013664 

2353 013666 

2354 013672 

2355 013674 

2356 013700 

2357 013704 

2358 013706 

2359 013710 

2360 013714 

2361 013720 

2362 013722 

2363 013726 

2364 013732 

2365 013734 

2366 013740 

2367 013742 

2368 013746 

2369 013750 

2370 013752 

2371 013756 

2372 013760 

2373 013764 

2374 013766 

2375 013774 

2376 013776 

2377 014002 

2378 014004 

2379 014006 

2380 014010 

2381 014012 


000240 

005037 

005037 

012737 

005037 

005037 

005037 

005037 

005037 

005037 

005037 

005037 

005037 

012737 

004737 


014020 

002270 

000001 

002304 

002230 

002274 

002276 

002246 

002250 

033544 

002332 

023330 

000001 

014022 


004737 

005737 

001410 

004737 

005737 

001005 

004737 

000402 

004737 


014016 


021426 


005737 002274 
001402 

004737 032466 
005737 002270 
001030 


020676 

002274 

032466 

002270 

032444 

032444 


005737 002270 
001007 

005737 014020 
001750 

032737 100000 
001274 

005737 002270 
001402 

000401 


CONTRL: 

BGNTST 

NOP 


BGOO: 

BGNSUB 



CLR 

EXCMP 


CLR 

ABORT 


MOV 

#1 , INI TL 


CLR 

RETRY 


CLR 

SDD 


CLR 

ERRSY 


CLR 

ERRTY 


CLR 

CSRUUT 


CLR 

ESRUUT 


CLR 

XERUUT 


CLR 

CMD 


CLR 

UDOT 


MOV 

A1.SUTPTR 


CALL 

GTSYEX 

1A00: 

ENDSUB 

TST 

ERRSY 


BEQ 

I BOO * 


CALL 

OTSYER 

I BOO: 

TST 

ABORT 


BNE 

UGOO 

BCOO: 

BGNSUB 



CALL 

SCSYEX 

IDOO: 

TST 

ERRSY 


BEQ 

LDOO 


CALL 

OTSYER 

IEOO: 

TST 

ABORT 


BNE 

EDOO 


CALL 

OTEXCM 


BR 

EDOO 

LDOO: 

CALL 

OTEXCM 

EDOO: 

CKLOOP 


UCOO: 

ENDSUB 

TST 

ABORT 


BNE 

1 F 00 


TST 

EXCMP 


BEQ 

BCOO 

UGOO: 

BIT 

#100000, SUREG 


BNE 

BGOO 

IF 00: 

TST 

ABORT 


BEQ 

LFOO 


DOCLN 

BR 

ENDOO 

LFOO: 

DORPT 


ENDOO: 

EXIT 

TST 


2382 

2383 014016 000000 

2384 014020 000000 

2385 


INI TL : 0 
EXCHP: 0 
;M0D 0.0 


END MODULE 
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BEGIN SUB TESI 
CLEAR EXERCISE COMPLETE 
CLEAR ABORT FLAG 
SET INITIALIZE FLAG 
CLEAR RETRY FLAGS 

Clear sys drives done 

CLEAR SYSTEM ERROR FLAGS 
CLEAR DEVICE ERROR FLAGS 
CLEAR UUT CSR 
CLEAR UUT ESR 
CLEAR UUT TEST ERROR REG 
CLEAR COMMAND PRINT WORD 
CLEAR COMMAND WORD 
PRESET SYS UNDER 1ST PTR 
CALL MOD 1.0 GET SYS EXER. 

END SUB TEST 
IF ERR SYS 
NOT =0, THEN 

CALL MOD 4.0 - 0/P SYSTEM ERROR 

IF ABORT 

NOT SET, THEN 

BEGIN SUB TEST 

CALL MOD 2.0 - SCHEDULE SYSTEM EXERCISE 
IF ERR SYSTEM 
N0T=0, THEN 

CALL MOD 4.0 - 0/P SYSTEM ERROR 

IF ABORT 

NOT SET, THEN 

CALL MOD 3.0 - 0/P SYSTEM EXERCISE COMPLETE 
BR TO END *D* 

CALL MOD 3.0 - 0/P SYSTEM EXERCISE COMPLETE 

CHECK LOOP ON ERROR 

END SUB TEST 

DOUNTIL ABORT 

OR 

EXERCISE COMPLETE 
SET 

DOUNTIL SUREG BIT#15 
NOT SET 
IF ABORT 
SET.. THEN 
DO CLEAN UP 
BR TO END 
DO REPORT 
EXIT TEST 


.'INITIALIZE POINTERS FLAG 
; EXERC I SE COMPLETE FLAG 



K 4 
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MOD 0.0 

- EXERCISE A SYSTEM 





' <88 








589 








2390 





.sbttl 

MOD 

1.0 - GET SYSTEM E 

2391 








2392 

014022 

000240 



GTSYEX: 

NOP 


2393 

014024 

032737 

000001 

002266 

I FBI 0 : 

BIT 

#POWERF. FLAGS 

2394 

014032 

001002 




BNE 

IFA10 

2395 

014034 

004737 

014076 



JSR 

PC.GTEXCD 

2396 

014040 

032737 

040000 

002204 

IFA10: 

BIT 

#40000. SWREG 

2397 

014046 

001002 




BNE 

ELA10 

2398 

014050 

004737 

014216 



JSR 

PC.GTSYS 

2399 

014054 

004737 

017302 


ELA10: 

JSR 

PC.GTEX 

2400 

014060 

042737 

040000 

002274 


BIC 

#B1T14,ERRSY 

2401 

014066 

005037 

014074 



CLR 

FIRST 

2402 

014072 

000207 




RTS 

PC 

2403 








2404 

o 

■r- 

o 

000001 



FIRST: 

1 


2405 





;M0D 1. 

0 — 

— END MODULE 

2406 








2407 








2408 








2409 





.SBTTL 

MOD 

1.1 - GET EXERCISE 

2410 








2411 








2412 








2413 

014076 

000240 



GTEXCD: 

NOP 


2414 

014100 

032737 

000001 

002204 

IFA11: 

BIT 

#1. SWREG 

2415 

014106 

001404 




BEO 

ELA11 

2416 

014110 

012737 

000200 

002252 


MOV 

#200.WDCNT 

2417 

014116 

000403 




BR 

EIAli 

2418 

014120 

012737 

000100 

002252 

ELA11: 

MOV 

#100,WDCNT 

2419 

014126 

013737 

002206 

020650 

E I A 1 1 : 

MOV 

OTDITK.OD 

2420 

014134 

013737 

002210 

020652 


MOV 

INDITK.ID 

2421 

014142 

032737 

000002 

002204 


BIT 

#2, SWREG 

2422 

014150 

001404 




BEG 

ELB11 

2423 

014152 

012737 

000010 

002244 


MOV 

flO.DELDAT 

2424 

014160 

000402 




BR 

IFCfl 

2425 

014162 

005037 

002244 


ELB11: 

ClR 

DELDAT 

2426 

014166 

032737 

000001 

002204 

IFC11: 

BIT 

#1. SWREG 

2427 

014174 

001404 




BED 

E L Cl 1 

2428 

014176 

012737 

000400 

002242 


MOV 

#400. DEN 

2429 

014204 

000402 




BR 

EICll 

2430 

014206 

005037 

002242 


ELC11: 

CLR 

DEN 

2431 

014212 

000240 



EIC11: 

NOP 


2432 

014214 

000207 




RTS 

PC 

24 33 





;M0D 1. 

1 — 

— END MODULE 


IF POWER FLAG 
NOT SET, THEN 

CALL GET EXERCISE CONDITION 
IF NO INITIALIZE 
NOT SET, THEN 

CALL GET SYSTEM TO EXERCISE 
CALL GET EXERCISE 

CLEAR ANY TIME OUT ERRORS ALREADY REPORTED 

CLEAR FIRST PASS FlAG 

RETURN 


FIRST PASS FLAG 


IF SET FOR DOUBLE DENSITY 
THEN 

SET WORD COUNT =256 BYTES 
BR TO END IF 'A* 

SET WORD COUNT=128 BYTES 

SET OUTSIDE TRACK ADR. (FROM SOFTU P-TA0) 

SET INSIDE TRACK ADR. (FROM SOFT P-TAB) 

IF DEL DATA SET 
THEN 

SET DEL DATA MODE 
BR TO END IF ‘B’ 

CLEAR DEL DATA MODE 

IF DOUBLE DEN IS SET IN SOFT SUREG 

THEN 

SET DEN=DOUBLE 
BR TO END IF *C' 

SET DEN=SINGL£ 

RETURN 
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MOD 1.1 - GET EXERCISE CONDITIONS 


2436 


2437 






2438 




.S8TTL 

MOD 1.2 

2439 






2440 






2441 014216 




GTSYS: 

BRESET 

2442 014220 

004737 

014626 



CALL 

2443 014224 

012737 

000040 

025330 


MOV 

2444 014232 

013737 

002220 

025332 


MOV 

2445 014240 

004737 

025230 



CALL 

2446 014244 

032777 

‘‘00040 

165746 

IPA12: 

BIT 

2447 014252 

001006 




BNE 

2448 014254 

012737 

016167 

016130 


MOV 

2449 014262 

004737 

016016 



CALL 

2450 014266 

000442 




BR 

2451 014270 

012777 

040000 

165722 

ELA12: 

MOV 

2452 014276 

012737 

000040 

025330 


MOV 

2453 014304 

013737 

002220 

025332 


MOV 

2454 014312 

004737 

025230 



CALL 

2455 014316 

032777 

000040 

165674 

IFB12: 

BIT 

2456 014324 

001006 




BNE 

2457 014326 

012737 

016235 

016130 


MOV 

2458 014334 

004737 

016016 



CALL 

2459 014340 

000415 




BR 

2460 014342 

012737 

000002 

015276 

ELB12: 

MOV 

2461 014350 

012737 

000001 

015302 


MOV 

2462 014356 

005037 

015300 



CLR 

2463 014362 

013704 

002220 



MOV 

2464 014366 

004737 

014742 



CALL 

2465 014372 

000412 




BR 

2466 014374 

005737 

002172 


EIA12: 

T ST 

2467 014400 

001404 



I f Hi 2 : 

BEO 

2468 014402 

042737 

000017 

002232 


BIC 

2469 014410 

000403 




BR 

2470 014412 

042737 

000003 

002232 

ELH12: 

BIC 

2471 014420 

005737 

0021 72 


If C12: 

TST 

2472 014424 

001401 




BEO 

2 f 73 014426 

000463 




BR 

2474 014430 

032737 

000014 

002232 

IFD12: 

BIT 

2475 014436 

001457 




BEO 

2476 014440 

004737 

014702 



CALL 

2477 014444 

032777 

000040 

165550 

If E12: 

BIT 

2478 014452 

001441 




BED 

2479 014454 

012777 

040000 

165540 


MOV 

2480 014462 

012737 

000040 

025330 


MOV 

2481 014470 

013737 

002222 

025332 


MOV 

2482 014476 

004737 

025230 



CALL 

2483 014502 

032777 

000040 

165512 

IFF12: 

BIT 

2484 014510 

001416 




BEO 

2485 014512 

012737 

000004 

015302 


MOV 

2486 014520 

012737 

000002 

015276 


MOV 

2487 014526 

012737 

000002 

O 1 5300 


MOV 

2488 014534 

013704 

002222 



MOV 

2489 014540 

004737 

014742 



CALL 

2490 014544 

000414 




BR 

2491 014546 

012737 

016235 

016130 

ELf 12: 

MOV 

2492 014554 

000403 




BR 


l 4 


SEQ 50 


GET SYSTEM TO EXERCISE 


GPSUNO 

#DNBIT,RDYUD 

UOADR.CSRADR 

DELAY 

«DNBIT # auOADR 

ELA12 

#INTER2.ITMSG 

ITERR 

EIA12 

#40000. 3U0ADR 
fDNBIT.RDYUD 
UOADR.CSRADR 
DELAY 

#DNB1 T .auOADR 
ELB12 

#INTER3,ITMSG 

ITERR 

E I A 1 2 

#2,UNTCNT 

fl.SUTPOS 

UNTCD 

U0ADR.R4 

CKDVAV 

If C12 

RXXX 

ELH12 

#17, SUT 

IFCl2 

#3.SUT 

RXXX 

IF012 

IFG12 

#14. SUT 

If G^2 

GPSUNl 

#DNBI T .aUlADR 

#400^0. 8Ul ADR 
fDNBIT.RDYUD 
Ul ADR.CSRADR 
DELAY 

#DNB IT. aUlADR 
ELf 12 
#4.SUTP0S 
#2.UNTCNT 
#2. UNTCD 
U1ADR.R4 
CKDVAV 
If G12 , 
f INTER3, ITMSG 
EIE12 


ISSUE BUS RESET 

CALL GET PRINTABLE SYSTEM 0 UNIT # 
SET READY WORD = DONE 
SET ADDRESS 

CALL MOD - DELAY fOR DONE 
If UNIT #0 DONE BIT 
NOT SET THEN 
SET PRINT MSGf 

INITIALIZE ERR-UO-NO DONE BIT 
BR TO END If 'A' 

ELSE-ISSUE PROG INI T TO UO 

SET READY WORD = DONE 

SET TEST ADDRESS 

CALL MOD - DELAY fOR DONE 

If UNIT #0 DONE BIT 

NOT SET THEN 

SET PRINT MSG# 

INITIALIZE ERR-UO, NO DONE BIT 
BR TO END If 'A' 

SET # DRVS TO CK 

SET POSITION IN SUT TO TEST = 1 

SET UUT CODE = 0 

SET TEMP #4 = UO ADDRESS 

CALL MOD 1.2.1 - CK DRIVE STATUS 

BR TO If *C* 

If RXXX 
THEN 

CLEAR RXXX UO SELECTED DRIVES 
BR TO If *C' 

CLEAR RX02 UO SELECTED DRIVES 

IF RXXX 

THEN 

BR TO If *G* 

If Ul 


SELECTED THEN 

CALL GET PRINTABLE SYSTEM 1 UNIT # 
IF Ul DONE BIT 
SET THEN 

INITIALIZE DEVICE Ul 
SET READY WORD = DONE BIT 
SET TEST ADR 

CALL MOD - WAIT FOR DONE 
IF UT DONE BIT 
SET THEN 

SET POSITION IN SUT = 4 

SET # DRVS TO CK = 2 

SET UUT CODE = 2 

SET TEMP #4 = UT ADR 

CALL MOD 1.2.1 - CK DRIVE STATUS 

BR TO IF ’G T 

SET MSG#-U1-"N0 DONE BIT-PROG INT 
BR TO END IF 'E' 
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PAGE 71-1 



MOD 1.2 

- GET SYSTEM TO 

EXERCISE 





2493 

014556 

012737 

016167 

016130 

ELF 2 : 

MOV 

#1NTER2.1TMSG 

SET MSGA-Ul -“NO DONE BIT-BUS INI T 

2494 

014564 

004737 

016016 


EIE12: 

CALL 

ITERR 

INI T ERR 

2495 

014370 

042737 

000014 

002232 


BIC 

#14,SUT 

CLEAR SYS 1 FROM TEST 

2496 

014576 

005737 

002232 


IFG12: 

TST 

SUT 

IF SYSTEM UNDER TEST 

2497 

014602 

001007 




BNE 

ELG12 

EQUALS 0, THEN 

2498 

014604 

012701 

016305 



MOV 

#INTER4,R1 

SETUP PRINT - "NO SYS TO TEST" 

2499 

014610 

004737 

004516 



CALL 

PRTBOS 

CALL PRINT BASIC-0 ARG 

2500 

014614 

012737 

000001 

002270 


MOV 

#1 .ABORT 

SET ABORT FLAG 

2501 

014622 

000240 



ELG12: 

NOP 



2502 

014624 

000207 




RTS 

PC 

RETURN 


2503 

2504 

2505 

2506 


2520 

2521 

2522 

2523 


2531 

2532 

2533 


;M0D 1.2 


END MODULE 


.SBTTL - MOD 1.2.U.1 - GET PRINTABLE SYSTEM 0 UNIT U 


014626 

005037 

002334 


GPSUNO; CLR 

UNIT 

SET UNIT=0 

014632 

005737 

002336 


TST 

UTOO 

IF UTOO 

014636 

100404 



BMI 

2$ 

valid, then 

014640 

013737 

002336 

002334 

MOV 

UTOO, UNIT 

SETUP UNIT FOR PRINT 

014646 

000414 



BR 

XPSUNO 

BR TO EXIT 

014650 

005737 

002340 


2$: TST 

UT01 

IF UT01 

014654 

100404 



BMI 

3S 

VALID. THEN 

014656 

013737 

002340 

002334 

MOV 

UT01.UNIT 

SETUP UNIT FOR PRINT 

014664 

000405 



BR 

XPSUNO 

BR TO EXIT 

014666 

005737 

002172 


3$: TST 

RXXX 

IF RXXX 

014672 

001402 



BEQ 

XPSUNO 

THEN 

014674 

004737 

014702 


CALL 

GPSUNl 

CALL GET PRINTABLE SYSTEM 1 UNIT # 

014700 

000207 



XPSUNO: RETURN 


RETURN 


.SBTTL - MOD 1.2.U.2 - GET PRINTABLE SYSTEM 1 UNIT # 


014702 

005037 

002334 


GPSUNl: CLR 

UNIT 

SET UNIT=0 


014706 

005737 

002342 


IS: TST 

UT10 

IF UT10 


014712 

100404 



BMI 

2S 

VALID, THEN 


014714 

013737 

002342 

002334 

MOV 

UT10.UNIT 

SETUP UNIT FOR 

PRINT 

014722 

000406 



BR 

XPSUN1 

BR TO EXIT 


014724 

005737 

002344 


2S: TST 

UT11 

IF UT11 


014730 

100403 



BMI 

XPSUN1 

VALID, THEN 


014732 

013737 

002344 

002334 

MOV 

UT11 .UNIT 

SETUP UNIT FOR 

PRINT 

014740 

000207 



XPSUN1: RETURN 


RETURN 



SEQ 51 
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5^77 
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.SBTTL MOD 1.2 

N 4 

SEQ 52 

.1 - CK DRIVE AVAILABLE 

C/Ji 





..... 


2538 014742 

010437 

015272 


CKDVAV: MOV 

R4.ITCSAD 

SAVE C & S ADR 

2539 014746 

062704 

000002 


ADD 

#2.R4 

SET DATA BUFFER ADR 

2540 014752 

010437 

015274 


MOV 

R4.ITDBAD 

SAVE DB ADR 

2541 014756 

000240 



BDA121: NOP 



2542 014760 

033737 

015302 

002232 

IF AT 21 : BIT 

SUTPOS,SUT 

IF THIS UNIT SUT i SUT 

2543 014766 

001521 



BEQ 

EIA121 

EQUAL, THEN 

2544 014770 




BGNSEG 


BEGIN SEGMENT-TO LOOP ON ERROR 

2545 014772 

013701 

015300 


MOV 

UNTCD.R1 

SAVE UNIT CODE # 

2546 014776 

006301 



ASL 

R1 

DOUBLE UNIT CD FOR ADR 

2547 015000 

062701 

002336 


ADD 

#UT00.R1 

FIND ADR UNIT# 

2548 015004 

OH137 

002334 


MOV 

(RI).UNIT 

SET UNIT# FOR PRINT 

2549 015010 

032737 

000001 

015300 

IFB121: BIT 

fl.UNTCD 

IF DRIVE #1 SET IN UNIT CODE 

2550 015016 

001407 



BEQ 

ELB121 

THEN 

2551 015020 

012737 

000033 

015266 

MOV 

#33, INTCHD 

SET READ STATUS DRV #1 

2552 015026 

012737 

000001 

015270 

MOV 

#1 ,DRIV'N 

SET PRINT FOR DRV #1 

2553 015034 

000405 



BR 

EIB121 

BR TO END IF 'B' 

2554 015036 

012737 

000013 

015266 

ELB121: MOV 

#13.INTCMD 

SET READ STATUS DRV #0 

2555 015044 

005037 

015270 


CLR 

DRIVEN 

SET PRINT FOR DRIVE #0 

2556 015050 

013777 

015266 

000214 

EIB121: MOV 

INTCMD.aiTCSAD 

EXECUTE READ STATUS ON DRIVE AT TEMP #4 

2557 015056 

013737 

015272 

025332 

MOV 

ITCSAD.CSRABR 

PASS DOWN ADRS 

2558 015064 

012737 

000040 

025330 

MOV 

#DNBIT.RDYUD 

PASS DOWN ,, DONE" BIT TO TEST 

2559 015072 

004737 

025230 


CALL 

DELAY 

CALL HOD - DELAY FOR DONE BIT 

2560 015076 

032777 

000010 

000170 

I F Hi 21 : BIT 

IIO.aiTDBAD 

IF AC LOU BIT 

2561 015104 

001404 



BEQ 

IFC121 

SET, THEN 

2562 015106 

012737 

017200 

016130 

MOV 

#ITER3. ITHSG 

SET HSG# - "AC LOU" 

2563 015114 

000436 



BR 

E I Cl 21 

BR TO END IF 'C* 

2564 015116 

032777 

000200 

000150 

IF C 1 21 : BIT 

#200.aiTDBAD 

IF DRV RDY BIT 

2565 015124 

001004 



BNE 

IFIlSl 

NOT SET, THEN 

2566 015126 

012737 

016334 

016130 

MOV 

#ITMSG1,ITMSG 

SET HSG# - "NO DRIVE READY" 

2567 015134 

000426 



BR 

EIC121 

BR TO END IF 'C* 

2568 015136 

032777 

004000 

000126 

IF 1121 : BIT 

#RX2BIT,aiTCSAD 

IF CSR RX02 BIT 

2569 0 1 5144 

001004 



BNE 

IFD121 

NOT SET, THEN 

2570 015146 

012737 

016521 

016130 

MOV 

#ITMSG5, ITHSG 

SET HSG # '‘NOT CAP. OF DOUBLE DENS. OPS." 

2571 015154 

000416 



BR 

E I Cl 21 

BR TO END IF 'C' 

2572 015156 

005737 

002172 


IFD121: TST 

RXXX 

IF UNIT IS TO BE TESTED AS RXXX 

2573 015162 

001421 



BEQ 

E 101 21 

THCN 

2574 015164 

032737 

000002 

015300 

IFE121: BIT 

#2,UNTCD 

IF SIDE #1 

2575 015172 

001415 



BEQ 

EID121 

SELECTED 

2576 015174 

032777 

000002 

000072 

IFF121 : BIT 

#2,aiTDBAD 

IF SIDE #1 

2577 015202 

001011 



BNE 

EID121 

NOT READY, THEN 

2578 015204 

012737 

016357 

016130 

MOV 

#ITHSG2.ITHSG 

SET HSG# - "NO SIDE RDY" 

2579 015212 

004737 

016016 


EIC121: CALL 

ITERR 

CALL INITIALIZE ERROR 

2580 015216 




ENDSEG 


END SEGHENT-TO LOOP ON ERROR 

2581 015220 

004737 

016064 


CALL 

ITDROP 

CAiL DROP UNIT 

2582 015224 

000402 



BR 

EIA121 

BR TO ENDIF 'A' 

2583 015226 

004737 

015306 


EID121: CALL 

REFDRV 

CALL REFORMAT DRIVE DENSITY 

2584 015232 

006137 

015302 


EIA121: ROL 

SUTPOS 

HOVE SELECT BIT TO TEST SYS UNDER TEST 

2585 015236 

005337 

015276 


DEC 

UNTCNT 

DECREMENT UNIT COUNT 

2586 015242 

005237 

015300 


INC 

UNTCD 

INCREMENT UNIT UNDER TEST CODE 

2587 015246 

005737 

015276 


DUA121: TST 

UNTCNT 

DO 

2588 015252 

001402 



BEQ 

END121 

UNTIL 

2589 015254 

0001 37 

014756 


JMP 

BOAT 21 

ALL UNITS DONE 

2590 015260 

000240 



END 121 : NOP 



2591 015262 

2592 

000207 



RTS 

PC 

RETURN 
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B 5 


SEG 53 


2595 

2596 015264 

000000 

ftEFCMD: 0 

.•REFORMAT COMMAND 

2597 015266 

000000 

INTCMD: 0 

.'INITIAL COMMAND WORD 

2598 015270 

000000 

DRIVEN: 0 

•DRIVE NUMBER 

2599 015272 

000000 

ITCSAD: 0 

; INITIAL C i S ADR 

2600 015274 

000000 

ITDBAD: 0 

; INITIAL DATA BUFFER ADR 

2601 015276 

000000 

UNTCNT: 0 

.•UNIT COUNT 

2602 015300 

000000 

UNTCD: 0 

.•UNIT CODE 

2603 015302 

000000 

SUTPOS: 0 

; SYS UNDER TST POSITION 

2604 015304 

000000 

FORMCK: 0 

;FORMATT CK FLAG 

2605 





C 5 

HARDWARE TESTS MACRO M1200 1 5-DEC-82 13:50 PAGE 77 

MOD 1.2. 1.1 - REFORMAT DRIVE DENSITY 



.SBTTL MOD 1.2. 1.1 - REFORMAT 


2611 015306 

033737 

015302 

002232 

REFDRV: BIT 

SUTPOS.SUT 

2612 015314 

001003 



BNE 

IA1211 

2613 015316 

000137 

016012 


JMP 

XI 21 1 

2614 015322 




BGNSEG 


2615 015324 

032737 

000001 

002204 

IA1211: BIT 

#1 -SWREG 

2616 015332 

001417 



BEQ 

IC1211 

2617 015334 

032777 

000040 

177732 

181211: BIT 

#40.9ITDBAD 

2618 015342 

001011 



BNE 

LB1$11 

2619 015344 

012737 

016401 

016130 

MOV 

#ITMSG3.ITMSG 

2620 015352 

004737 

016102 


CALL 

ITPRNT 

2621 015356 

012737 

000400 

015264 

MOV 

#BIT8. REFCMD 

2622 015364 

000417 



BR 

ID1211 

2623 015366 

000137 

016012 


LSI 211 : JMP 

X 1 2 1 1 

2624 015372 

032777 

000040 

177674 

I C 1 21 1 : BIT 

#40,aiTDBAD 

2625 015400 

001002 



BNE 

IS 

2626 015402 

000137 

016012 


JMP 

XI 2:1 1 

2627 015406 

012737 

016576 

016130 

1$: MOV 

#ITMSG6.ITMSG 

2628 015414 

00^737 

016102 


CALL 

ITPRNT 

2629 015420 

005037 

015264 


CLR 

REFCMD 

2630 015424 




101211 : MANUAL 


2631 015426 




BNCOMPLETE LD1211 

2632 015430 




GMANIL 

FCKHSG.F0RMCK.1 

2633 015444 

005737 

015304 


I E 1 21 1 : TST 

FORMCK 

2634 015450 

001544 



BEQ 

LE1211 

2635 015452 

005037 

015304 


CLR 

FORMCK 

2656 015456 

052737 

00001 1 

015264 

BIS 

#11 .REFCMD 

2637 015464 

032737 

000001 

015300 

IF 121 1 : BIT 

#1 .UNTCD 

2638 015472 

001403 



BEQ 

IG 121 1 

2639 015474 

052737 

000020 

015264 

BIS 

#BIT4. REFCMD 

2640 015502 

005737 

002172 


IG121 1 : TST 

RXXX 

2641 015506 

001407 



BEQ 

EG1211 

2642 015510 

032737 

000002 

015300 

BIT 

#2. UNTCD 

2643 015516 

001403 



BEQ 

EG1211 

2644 015520 

052737 

001000 

015264 

BIS 

#B I T9. REF CMD 

2645 015526 

013777 

015264 

177536 

EG1211: MOV 

REFCMD. dlTCSAD 

2646 015534 

013737 

015272 

025332 

MOV 

ITCSAD.CSRADR 

2647 015542 

012737 

000200 

025330 

MOV 

#TRBIT,RDYWD 

2648 015550 

004737 

025230 


CALL 

DELAY 

2649 015554 

005737 

002274 


I Hi 21 1 : TST 

ERRSY 

2650 015560 

001070 



BNE 

LH1211 

2651 015562 

012777 

000111 

177504 

MOV 

#111 .aiTDBAD 

2652 015570 

013702 

002334 


MOV 

UNIT ,R2 

2653 015574 

012701 

016753 


MOV 

# I TMSG9 ,R1 

2654 015600 

004737 

004536 


CALL 

PRTB1S 

2655 015604 

013737 

015272 

025332 

MOV 

ITCSAD.CSRADR 

2656 015612 

012737 

000040 

025330 

MOV 

#DNBIT.RDYWD 

2657 015620 

013737 

025324 

016014 

MOV 

RYDX.SAVDLY 

2658 015626 

012737 

001000 

025324 

MOV 

#1000, RYDX 

2659 015634 

004737 

025230 


CALL 

DELAY 

2660 015640 

013737 

016014 

025324 

MOV 

SAVDLY.RYDX 

2661 015646 

017737 

177420 

002246 

MOV 

3ITCSAD.CSRUUT 

2662 015654 

017737 

177414 

002250 

MOV 

aiTDBAD, ESRUUT 

2663 015662 

032777 

000040 

177402 

I I 1211: BIT 

#40.31 TCSAD 

2664 015670 

00H20 



BEQ 

Hl2l1 


SEO 54 


DENSITY 


; IF UNIT SELECTED IN 
;SYS UNDER TEST 
; THEN 

; BEGIN SEGMENT-FOR LOOP ON ERROR 
; IF DOUBLE DENSITY 
'SET THEN 

•IF DISKETTE IS NOT DOUBLE DENSITY 
; THEN 

;SET MSG# DSK SGL DEN 
; CALL PRINT - 

;SET REFORMAT CMD TO DOUBLE DENSITY 
;BR TO IF 'D' 

; ELSE BR TO END 
; IF DISKETTE 

; IS NOT SINGLE DENSITY. THEN 

•SET MSG# DSK DBL DEN 
.'CALL PRINT - 

; SET REFORMAT CMD TO SINGLE DENSITY 
; IF MANUAL INTERVENTION 
; IS ALLOWED. THEN 
.YES 

; IF REFORMATT 
;OK. THEN 

; CLEAR REFORMATT CK 
; SET REFORMAT CMD 
; IF DRIVE #1 
; SELECTED 

;SET DRIVE #1 ON REFORMAT CMD 

; IF RXXX 

.'DEVICE AND 

; SIDE #1 

; SELECTED, THEN 

; SET SIDE #1 ON REFORMAT CMD 

;SEND REFORMAT CMD 

.PASS UNIT ADRS 

.•PASS "TR“ BIT TO TEST 

.'CALL DELAY 

;IF 

'T 0 ERR 

•SEND VARIFV WORD (ASCII " 1 “) 

; SETUP UNIT # PRT 
.'SET MSG# URG DEN REFORMAT 
.-CALL PRINT BASIC-1 ARG 
;SET UNIT BUS ADR 
; SET DONE BIT TST 
.'SAVE NORMAL DELAY MULTIPLIER 
; SET DELAY MULT HIGH 
.•DELAY UNTIL DONE OR T. 0. 

; RESET DELAY MULT 
; GET UUT CSR 
;GFT UUT ESR 
; IF DONE BIT 
;SET .THEN 
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2665 015672 032777 100000 177372 

2666 015700 001444 

2667 015702 013737 01 5264 002332 

2668 015710 013737 015272 002236 

2669 015716 004737 005026 

2670 015722 012737 017032 016130 

2671 015730 000407 

2672 015732 012737 017116 016130 

2673 015740 000403 

2674 015742 012737 016454 016130 

2675 015750 004737 016016 

2676 015754 004737 002404 

2677 015760 000411 

2678 015762 012737 016652 016130 

2679 015770 000403 

2680 015772 012737 016704 016130 

2681 016000 004737 016016 

2682 016004 

2683 016006 004737 016064 

2684 016012 000207 

2685 

2686 016014 000000 

2687 


I J 1 2 1 1 : BIT 

# 100000 . ancsAD 

BEQ 

XI 21 1 

MOV 

REFCMD.CMD 

MOV 

ITCSAD.UUT4DR 

CALL 

RDERCD 

MOV 

#ITER1 . ITMSG 

BR 

EH1211 

LIPII: MOV 

#ITER2. ITMSG 

BR 

E Hi 21 1 

LH1211: MOV 

#ITMSG4, ITMSG 

EMI 21 1 : CALL 

ITERR 

CALL 

PRTERR 

BR 

EA1211 

LEI 21 1 : MOV 

#ITMSG7. ITMSG 

BR 

EDI 21 1 

LD1211: MOV 

#ITMSG8. ITMSG 

EDI 21 1 : CALL 

ITERR 

EA1211: ENDSEG 


CALL 

ITDROP 

X1211: RTS 

PC 

SAVDLY: 0 




SEO 55 


IF ERR BIT NOT SET 
THEN BR TO EXIT 
SET COMMAND FOR PRINT 
SET UUT ADR 

CALL DEVICE READ ERROR CODE 
ELSE. SET ’’ERROR ON REFORMATT” MSG 
BR TO END IF ’H' 

SET "NO DONE BIT AFTER REFORMATT” MSG 
BR TO END IF 'H' 

SET MSG* NO ”TR” BIT TIME OUT ERR 
CALL INITIALIZE ERROR 
CALL PRINT ERR 
BR TO END IF 'A' 

SET MSG# DISK URG DEN 
BR TO END IF ’D* 

SET MSG# MAN INTERVENTION NOT ALL 

CALL INITIALIZE ERROR 

END SEGMENT-TO LOOP ON ERROR 

CALL DROP UNIT 

RETURN 


;SAVE NORMAL DELAY MULTIPLIER 
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MOD 1.2.U.3 - initialize error 

2690 

2691 

2692 

2693 
269«* 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 

2707 

2708 

2709 

2710 

2711 

2712 

2713 

2714 

2715 

2716 

2717 

2718 

2719 

2720 

2721 

2722 

2723 

2724 

2725 

2726 

2727 

2728 

2729 

2730 

2731 

88 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 






.SBTTL 

• 

MOD 1.2.U.3 - 

initialize error 

016016 

012737 

000310 

002376 

* 

I TERR : 

MOV 

#200.,ERRNBR ; SET ERR NBR = INI T ERR 

016024 

012737 

016132 

002400 


MOV 

AITERMG.ERRMSG ; 

016032 

012737 

004506 

002402 


MOV 

#NONE .ERRBLK 

016040 

012737 

000001 

002374 


MOV 

#1 .ERRTYP 

;SET ERR TYP = DEV FTL 

016046 

013737 

002334 

002074 


MOV 

UNlT.LlLUN 

; SETUP LUN FOR PRINT 

016054 





ERROR 

;CALL ERROR 

016056 

004737 

016102 



CALL 

ITPRNT 

.•call initialize print 

016062 

000207 




RETURN 

.•RETURN 





• 

.SBTTL 

- 

MOD 1.2.U.4 - 

initialize drop 

016064 

013737 

015302 

013440 

ITDROP: 

MOV 

SUTPOS.SUTDRP ;SETUP SVS. UNDER TEST DROP BIT 

016072 





DODU 

UNIT 

;DR0P THIS UNIT FROM TEST 

016100 

000207 




RTS 

PC 

; RE TURN 





• 

.SBTTL 

• 

MOD 1.2.U.5 - 

INITIALIZE PRINT 

016102 

013702 

002334 


0 

ITPRNT: 

MOV 

UNIT.R2 

.•SETUP TO PRINT UNIT f 

016106 

012701 

016153 



MOV 

AITERUT.R1 

.•SETUP MSG 

0161.2 

004737 

004536 



CALL 

PRTB1S 

.•PRINT BASIC-1 ARG 

016116 

013701 

016130 



MOV 

ITMSG. R1 

.•SETUP TO PRINT MSG 

016122 

004737 

00'. 51 6 



CALL 

PRTBOS 

.•PRINT BASIC-0 ARG 

016126 

000207 




RTS 

PC 

.•RETURN 

016130 

000000 



ITMSG: 

0 


; INITIALIZE MSG# 


016132 

016153 

016167 

016235 

016305 

016334 

016357 

016401 

016454 

016521 

016576 

016652 

016704 

016753 

017032 

017116 

017200 

017223 


111 

045 

045 

045 

045 

045 

045 

045 

045 

045 

045 

045 

045 

045 

045 

045 

045 

040 


116 

101 

101 

101 

116 

101 

101 

101 

101 

101 

101 

101 

101 

101 

101 

101 

101 

040 


111 

040 

055 

055 

045 

055 

055 

055 

055 

055 

055 

040 

040 

040 

055 

055 

055 

040 


ITERMG 

ITERUT 

INTER2 

INTER3 

INTER4 

ITNaGI 

ITMSG2 

ITMSG3 

ITHSG4 

ITMSG5 

ITMSG6 

ITMSG7 

ITMSG8 

ITMSG9 

ITER1 

ITER2 

ITER3 

FCKMSG 


.ASC1Z 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 


/INITIALIZE ERROR/ 

/XA UNITfXDI / 

/XA NO DONE BIT AFTER BUS INITIALIZE/ 

/XA NO DONE BIT AFTER PROG. INITIAUZF/ 

/XNXA NO SYSTEM TO TEST/ 

/XA- NO DRIVE READY/ 

/XA- NO SIDE READY/ 

/XA- WRONG DENSITY -SINGLE DENSITY DISKETTE/ 

/XA- ••TR" BIT AFTER SET DENSITY CMDXN/ 

/XA- NOT CAPABLE OF DOUBLE DENSITY OPERATIONS/ 

/XA- WRONG DENSITY - DOUBLE DENSITY DISKETTE/ 

/XA DISKETTE WRONG DENSITY/ 

/XA MAN. INTERVENTION REQ'D - REFORMAT!/ 

/XA UNIT0XD1XA-REFORMATTING. DO NOT 1NTERRUPTXN/ 

/XA- ERROR BIT SET AFTER REFORMAT COMMAND SEOUENCEXN/ 
/XA- NO DONE BIT AFTER REFORMAT COMMAND SEOUENCEXN/ 
/XA- AC LOW BIT SET/ 

/ -REFORMAT DISKETTE - ARE YOU SURE?/ 




f 5 


SEO 57 


- GET EXERCISE 


TSTPAT.PAT 

STSTPA 

TRKSEO.SEOUEN 

otditk.od 

INDITK.ID 

stkseq 


f IRST 


THC1 3 


#40.SUREG 

END13 


#40 # SURE G 


CLRSTA 


PC 

END MODULE 


GET TEST PATTERN # 

CALL MOD 1.3.1 SET TEST PATTERN 
GET TRACK SEO * 

GET OUTSIDE DIA. TRK 

GET INSIDE DiA. TRK 

CALL MOD 1.3.2 SET TRACK SEQUENCE 

IF A FIRST PASS 

THEN 

IF CLEAR STATISTICAL TABLES 

IS SELECTED THEN 

CLEAR SELECTED - CLR STAT TABLE 

CALL MOD 1.3.3 - CLEAR STATISTICAL TABLES 

RETURN 
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SEQ 58 


G 5 


2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 

2817 

2818 
2819 
.^0 
?t>21 


SBTTl MOD 1.3.1 - SET DATA PATTERN 


PAT # 

ROUTINE 

DATA PATTERN 

0 

RANDAT 

NO PATTERN SPECIFIED (FORCE RANDOM DATA' 

1 

DATAO 

ALL ZEROS 

2 

DATA1 

ALL ONES 

3 

FLOATO 

FLOAT ZERO THRU ONE’S 

FLOAT ONE THRU ZERO’S 

4 

FL0AT1 

5 

PAT 125 

ALTERNATING BITS IN ONE BYTE COMP IN NEXT 

6 

PAT333 

ALTERNATING 1 ’ S PAIR £ 0 IN ONE BYTE COMP IN NEXT 

7 

RANDAT 

RANDOM 


NOTE: DATA PATTERNS Will BE MODIFIED SO BYTE #0 WILL CONTAIN TRACK ADDRESS 
AND BYTE #1 THE SECTOR ADDRESS IN WHICH THE DATA IS WRITTEN. 

THE LAST TWO 8YTET CONTAIN THE CHECK SUM NUMBERS. 


017376 

042737 

000377 

017462 

STSTPA: 

BIC 

#377.a#BRONPT 

CLEAR BRANCH OFFSET 

017404 

005037 

017744 



CLR 

SUM 

SET UP FOR ACCUMULATION OF CHECK SUM 

017410 

005737 

017750 



TST 

PAT 

IF NO PATTERN SPECIFIED FORCE PATTERN 7 

017414 

001003 




BNE 

IS 


017416 

012737 

000007 

017750 


MOV 

#7. PAT 


017424 

013704 

017750 


1$: 

MOV 

PAT ,R4 

GET PATTERN BITS 

017430 

0053C4 




DEC 

R4 

ADJUST FOR CORRECT OFFSET 

017432 

006304 




ASL 

R4 


017434 

150437 

017462 



BISB 

R4.S# BRONPT 

INSERT OFFSFT 

017440 

012704 

034010 



MOV 

#DATPAT*2,R4 

SET UP ADDRESS OF FIRST BYTE 

017444 

013705 

002252 



MOV 

WDCNT.R5 

SETUP WORD COUNT 

017450 

006305 




ASL 

R5 

DOUBLE WORD COUNT FOR ADR 

017452 

062705 

034006 



ADD 

#DATPAT.R5 

ADD DATA PATTERN ADR 

017456 

162705 

000004 



SUB 

#4,R5 

ADJ. FOR CHECKSUM 

017462 

000777 



BRONPT: 

BR 

• 

8RANCH BY OFFSET SELECTED 

017464 

000137 

017520 



JMP 

DATAO 

000 DATA BYTE 

017470 

000137 

017536 



JMP 

DATA1 

377 DATA BYTE 

017474 

000137 

017546 



JMP 

FLOATO 

FLOAT A 0 THROUGH ALL 1’S 

017500 

000137 

017614 



JMP 

FL0AT1 

FLOAT A 1 THROUGH ALL O’S 

017504 

000137 

017622 



JMP 

PAT125 

125/052 DATA WORD 

017510 

000137 

017646 



JMP 

PAT333 

314/063 DATA WORD 

017514 

000137 

017656 



JMP 

RANDAT 

RANDOM DATA BYTE 

017520 

005037 

017746 


DATAO: 

CLR 

DATBYT 


017524 

004737 

017704 


PG: 

JSR 

PC. LOAD 

GO LOAD THE DATA BUFFER 

017530 

005705 




TST 

R5 

IF R5 

017532 

001463 




BEQ 

END131 

NOT =0 .THEN 

017534 

000773 




BR 

PG 


017536 

112737 

000377 

017746 

DATA1 : 

MOVB 

#377, DATBYT 


017544 

000767 




BR 

PG 


017546 

112737 

000376 

017746 

FLOATO: 

MOVB 

#376, DATBYT 

SET UP A ONES FIELD 

017554 

000261 



XPG: 

SEC 


SET THE C BIT TO ROTATE THROUGH THE DATA 

017556 

012702 

000000 


IS: 

MOV 

#0,R2 

CLR R2 (CAN’T USE "CLET AS IT CLEARS ”C" 

017562 

103001 




BCC 

2S 

BR IF THE ,, C , ’ BIT IS CLEARED 

017564 

005202 




INC 

R2 

SET R2 IF NOT 

017566 

004737 

017704 


2S: 

JSR 

PC. LOAD 

GO LOAD THE DATA BUFFER 

017572 

005705 




TST 

R5 

IF R5 

017574 

001442 




BED 

END131 

NOT ZERO THEN 


BIT) 
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H 5 


SEQ 59 


2822 

2823 

2824 

2825 

2826 
2827 
2628 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 
2867 


017576 

017600 

017602 

017604 

017606 

017612 

000241 

005702 

001401 

000261 

106137 

000761 

01 77<»6 


CLC 

TST 

BEQ 

SEC 

31: ROLB 

BR 

R2 

3S 

DATBVT 

1$ 

; IS R2 NONZERO 

; YES, SET THE "C" BIT 

017614 

005037 

017746 


FL0AT1: CLR 

DATBYT 


017620 

000755 



BR 

XPG 


017622 

112737 

000125 

017746 

PAT 125: MOVB 

#125. DATBYT 


017630 

004737 

017704 


XXPG: JSR 

PC. LOAD 


017634 

005705 



1ST 

R5 

; IF R5 

017636 

001421 



BEO 

END131 

;NOT ZERO THEN 

017640 

105137 

017746 


COMB 

DATBYT 


017644 

000771 



BR 

XXPG 


017646 

112737 

000333 

017746 

PAT333: MOVB 

#333, DATBYT 


017654 

000765 



BR 

XXPG 


017656 

004737 

004560 


RANDAT: JSR 

PC.RANGEN 

;GET RANDOM NUMBER 

01 7662 

113737 

004652 

017746 

MOVB 

RANUM. DATBYT 


017670 

004737 

017704 


JSR 

PC, LOAD 


01 7674 

005705 



TST 

R5 

; IF R5 

017676 

001401 



BEO 

END131 

;NOT ZERO THEN 

017700 

000766 



BR 

RANDAT 


017702 

000207 



END131: RTS 

PC 

; RE TURN. 








017704 

063737 

017746 

017744 

LOAD : ADD 

DATBYT. SUM 

.•ACCUMULATE THE PATTERN CHECK SUM 

017712 

113724 

017746 


MOVB 

DATBYT. (R4)* 

.•LOAD THE DATA BUFFER 

017716 

020504 



CMP 

R5.R4 

.•HAVE 124 BYTES BEEN GENERATED 

017720 

001401 



BEO 

IS 

; IF YES. RETURN 

017722 

000407 



BR 

ENDLD 

; IF NO. RETURN TO PATTERN GENERATOR 

017724 

113724 

017744 


IS: MOVB 

SUM.CR4)* 

;PUT CHECKSUM INTO TABLE 

017730 

005137 

017744 


COM 

SUM 

; COMPLIMENT CHECKSUM 

017734 

115714 

017744 


MOVB 

SUM, (R4) 

.-PUT COMP CHECK SUM INTO TABLE 

017740 

005005 



CIS 

R5 

.•CLEAR TEMP #5 - FLAG DONE MODULE 

017742 

000207 



ENDLD: RTS 

PC 

; RE TURN 

017744 

000000 



SUM: 0 



017746 

000000 



DATBYT: 0 



017750 

000000 



PAT: 0 







;MOD 1.3.1 

— END MODULE — 
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SEO 60 


I 5 


2872 
2875 ' 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 

2883 

2884 017752 005037 

2885 017756 005037 

2886 017762 005037 

2887 017766 112737 

2888 017774 113737 

2889 020002 005037 

2890 020006 113737 

2891 020014 005037 

2892 020020 113737 

2893 020026 013737 

2894 020034 163737 

2895 020042 005237 

2896 020046 002005 

2897 020050 012737 

2898 020056 000137 

2899 020062 013737 

2900 020070 142737 

2901 020076 005737 

2902 020102 001003 

2903 020104 012737 

2904 020112 013704 

2905 020116 005304 

2906 020120 006304 

2907 020122 150437 

2908 020126 000777 

2909 020130 000137 

2910 020134 000137 

2911 020140 000137 

2912 020144 000137 
291! 020150 000137 

2914 020154 000137 

2915 020160 000137 

2916 

2917 020164 123737 

2918 020172 001004 

2919 020174 012737 

2920 020202 000405 

2921 020204 113737 

2922 020212 005237 
292 T 020216 000565 

2924 

2925 020220 123737 

2926 020226 001004 


SBTTL mod 1.3.2 - SET TRACK SEQUENCE 


SEQ # SEQUENCE 

0 NO SEQUENCE SPECIFIED (DEFAULT TO SEQ <> 

1 INCREMENT FROM OD TO ID 

2 DECREMENT FROM ID TO OD 

3 INCREMENT THEN DECREMENT TRACKS 

4 BOUNCE BETWEEN ID AND OD 

5 BOUNCE BE 1 WEEN DECREASING ID & INCREASING OD 

6 STROBE BETWEEN OD AND DECREMENTING ID 

7 RANDOM TRACK SELECTION 


020634 


STKSEQ: 

CLR 

TKTBPT 

clear TRK TBL ptr 

020642 



CLR 

PRESTK 

CLEAR PRESENT TRK 

020640 



CLR 

TARGET 

CLEAR TARGET TRK 

000177 

020642 


MOVB 

#177. PRESTK 

INI T PRESENT TRK TO HANDLE TRK #0 

020650 

020640 


MOVB 

OD, TARGET 

INI T OD AS TARGET TRACK 

020646 



CLR 

X ID 

INI T WORDING ID AND OD LOCATIONS 

020652 

020646 


MOVB 

ID.XID 

SAVE INSIDE D1A. IN TEMP INSIDE DIA. 

020644 



CLR 

XOD 

CLEAR TEMP OUTSIDE DIA 

020650 

020644 


MOVB 

OD.XOD 

SAVE OUTSIDE DIA. IN TEMP OUTSIDE DIA. 

020646 

020636 


MOV 

XID.TRKCNT 

SET UP NUMBER OF TRACK MOVEMENTS 

020644 

020636 


SUB 

XOD.TRr.CNT 


020636 



INC 

TRKCNT 

INCREMENT # OF TRACKS 




BGE 

gttk 

IF # OF TRACKS IS NEGATIVE. THEN 

100000 

002274 


MOV 

#100000, ERRSY 

SET SYSTEM ERROR 

020632 



JMP 

endtks 

EXIT 

002202 

020654 

GTTK: 

MOV 

trkseq.sequen 

GET TRACK SEQUENCE # 

000377 

020126 


8ICB 

#377,9#BR0NTK 

CLEAR OUT BRANCH OFFSET 

020654 



TST 

SEQUEN 

IF TRACK SEQUENCE 




8NE 

It 

EQUALS ZERO. THEN 

000007 

020654 


MOV 

#7. SEQUEN 

FORCE SEQ #7-RAND0M 

020654 


It: 

MOV 

SEQUEN. R4 

GET SEQUENCE BITS 




DEC 

R4 

ADJUST FOR CORRECT OFFSET 




ASL 

R4 


020126 



BISB 

R4,a#BR0NTK 

THIS BR INST. IS MODIFIED SELECTED TRACK SEQUENCE 



BRONTK: 

BR 

• 

BRANCH TO SELECTED TRACK SEQUENCE 

020164 



JMP 

SEQ1 


020220 



JMP 

SEQ2 


020254 



JMP 

SEQ3 


020272 



JMP 

SEQ4 

BOUNCE ID TO OD 

020340 



JMP 

SEQ5 

DECREASING BOUNCE 

020422 



JMP 

SEQ6 

STROBE 

020476 



JMP 

SEQ7 

RANDOM 

020646 

020642 

SEQ1 : 

CMPB 

XID. PRESTK 

IF PRESENT TRACKED 




BNE 

It 

THEN 

177777 

020640 


MOV 

#-1 .TARGET 

TERMINATE TABLE 




BR 

2t 

END SEQ1 

020644 

020640 

It: 

MOVB 

XOD. TARGET 

ELSE SET NEW TRACK-OUTSIDE DIA 

020644 



INC 

XOD 

INCREMENT OUTSIDE DIA 



2t: 

BR 

NEWTRK 

END SEQ1 

020644 

020642 

SEQ2: 

CMPB 

XOD. PRESTK 





BNE 

It 




J 5 


SEO 61 
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2927 020230 

012737 

177777 

020640 


MOV 

f-1, TARGET 

TERMINATE TABLE 

2928 020236 

000405 




BP 

2S 

END SEQ2 

2929 020240 

013737 

020646 

020640 

It: 

MOV 

XID. TARGET 

SET NEXT TRACK=1NSIDIA 

2930 020246 

005337 

020646 



DEC 

X1D 

DECREMENT INSIDE DIA 

2931 020252 

2932 

000547 



2$: 

BR 

NEUTRK 









2933 020254 

005701 



SEQ3: 

TST 

R1 

IF MODE 

2934 020256 

001402 




BEQ 

IS 

VOT equal to zero 

2935 020260 

005001 




CLR 

R1 

THEN CHANGE MODE 

2936 020262 

000756 




BR 

SEQ2 

DO SEQ2 

2937 020264 

012701 

000001 


IS: 

MOV 

#1 ,R1 

ELSE CHANGE MODE 

2938 C20270 

2939 

000735 




BR 

SEQ1 

DO SEQ1 








2940 020272 

005701 



SEQ4 : 

TST 

R1 

IF MODE 

2941 020274 

001405 




BEQ 

IS 

NOT EQUAL TO ZERO 

2942 020276 

113737 

020644 

020640 


MOVB 

XOD. TARGET 

THEN SET NEXT TRACK=OUTSIDE DIA 

2943 020304 

005001 




CLR 

R1 

CHANGE MODE 

2944 020306 

000405 




BR 

2S 

BR 

2945 020310 

113737 

020646 

020640 

IS: 

MOVB 

XID. TARGET 

ELSE SET NEXT TRACK=INS1DE DIA 

2946 020316 

012701 

000001 



MOV 

#1 ,R1 

TERMINATE TABLE 

2947 020322 

005337 

020636 


2S: 

DEC 

TRKCNT 


2948 020326 

001003 




BNE 

3S 


2949 020330 

012737 

177777 

020640 


MOV 

f-1. TARGET 

TERMINATE TABLE 

2950 020336 

2951 

000515 



3S: 

BR 

NEUTRK 









2952 020340 

123737 

020646 

020644 

SE05: 

CMPB 

XID. XOD 

IF INSIDE K OUTSIDE DIA 

2953 020346 

001421 




BEQ 

2S 

NOT EQUAL 

2954 020350 

005701 




TST 

R1 

THEN. IF MODE 

2955 020352 

001407 




BEQ 

IS 

CHANGE MODE 

2956 020354 

005001 




CLR 

R1 

2957 020356 

013737 

020644 

020640 


MOV 

XOD, TARGET 

SET NEXT TRACK=0UTS1DE DIA 

2958 020364 

005237 

020644 



INC 

XOD 

INCREMENT OUTSIDE DIA 

2959 020370 

000413 




BR 

3S 

END SEQ5 

2960 020372 

012701 

000001 


IS: 

MOV 

#1 ,R1 

CHANGE MODE 

2961 020376 

013737 

020646 

020640 


MOV 

XID, TARGET 

SET NEXT TRACK=INSIDE DIA 

2962 020404 

005337 

020646 



DEC 

XID 

DECREMENT INSIDE DIA 

2963 020410 

000403 




BR 

3S 

END SETS 

2964 020412 

012737 

177777 

020640 

2S: 

MOV 

f-1. TARGET 

TERMINATE TABLE 

2965 020420 

2966 

000464 



3S : 

BR 

NEUTRK 







XID. XOD 


2967 020422 

123737 

020646 

020644 

SEQ6: 

CMPB 


2968 020430 

001416 




BEQ 

IS 

IF O.D. JUST DONE 

2969 020432 

123737 

020642 

020644 


CMPB 

PRESTK.XOD 

2970 020440 

001006 




BNE 

3S 

THEN 

2971 020442 

113737 

020646 

020640 


MOVB 

XID. TARGET 

SET TO DO I.D. 

2972 020450 

005337 

020646 



DEC 

XID 

DECREMENT I.D. FOR NEXT 

2973 020454 

000407 




BR 

2 S 

ELSE SET TO DO O.D. 

2974 020456 

113737 

020644 

020640 

3S: 

MOVB 

XOD. TARGET 

2975 020464 

000403 




BR 

2S 


2976 020466 

012737 

177777 

020640 

IS: 

MOV 

f-1 .TARGET 

NEUTRK 


2977 020474 

2978 

000436 



2 S: 

BR 









2979 020476 

000240 



SEQ7: 

NOP 


GET A RANDOM NUMBER 

2980 020500 

004737 

004560 



JSR 

PC.RANGEN 

2981 020504 

042737 

177600 

004652 


BIC 

fl 77600, RANUM 

CLEAR ALL BUT LOU 7 BUS 

2982 020512 

123737 

004652 

020646 

IDCOMP: 

CMPB 

RANUM.X1D 

IF RANUM LARGER THAN ID ADDRFSS 

2983 020520 

003401 




BLE 

ODCOMP 

THEN 
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2984 

020522 

000765 



BR 

SEQ7 

BR TO GET ANOTHER RANDOM NUMBER 

2985 

020524 

123737 

004652 

020644 

ODCOMP : CMPB 

RANUM.XOD 

IF RANUM SMALLER THAN OD ADDRESS 

2986 

020532 

002001 



BGE 

PRESCK 

THEN 

2987 

020534 

000760 



BR 

SEQ7 

BR TO GET ANOTHER RANDOM NUMBER 

2988 

020536 

123737 

004652 

020642 

PRESCK: CMPB 

RANUM, PRESTK 

IF RANUM EQUALS PRESENT TRACK 

2989 

020544 

001754 



BEQ 

SEQ7 

GET ANOTHER RANDOM NUMBER 

2990 

020546 

013737 

004652 

020640 

MOV 

RANUM, TARGET 

RANUM OK PUT IT IN TARGET T RACK 

2991 

020554 

005337 

020636 


DEC 

TRKCNT 


2992 

020560 

001003 



BNE 

It 


2993 

020562 

012737 

177777 

020640 

MOV 

#-1. TARGET 

TERMINATE TABLE 

2994 

2995 

C20570 

000400 



It: BR 

NEUTRK 







#TRKTBL-1.R2 


2996 

020572 

012702 

033553 


NEUTRK: MOV 


2997 

020576 

005237 

020634 


INC 

tktbpt 


2998 

020602 

063702 

020634 


ADD 

TKTBPT. R2 


2999 

020606 

113712 

020640 


MOVB 

TARGET, (R2) 


3000 

020612 

005737 

020640 


1ST 

TARGET 


3001 

020616 

100405 



BMI 

ENDTKS 


3002 

020620 

113737 

020640 

020642 

MOVB 

TARGET. PRESTK 


3003 

020626 

000137 

020126 


JMP 

brontk 


5004 

3005 

020632 

000207 



ENDTKS: RTS 

PC 








" 

3006 

020634 

000000 



TKTBPT: 0 


TRACK TABLE POINTER 

3007 

020636 

000000 



TRKCNT: 0 


TRACK COUNT 

3008 

020640 

000000 



TARGET: 0 


TARGET TRACK 

3009 

020642 

000000 



PRESTK: 0 


PRESENT TRACK 

3010 

020644 

000000 



XOD: 0 


X OUTSIDE DIA. 

3i 11 

020646 

000000 



XID: 0 


X INSIDE DIA. 

3012 

020650 

000000 



OD: 0 


OUTSIDE DIA. 

3013 

020652 

000000 



ID: 0 


INSIDE DIA. 

3014 

020654 

000000 



SEQUEN: 0 


SEQUENCE » 

3015 












;nUU i • J.c ---- 

- t NL) HUUULt 


3016 

3017 

3018 

3019 

3020 

3021 

3022 

3023 





.SBTTL HOD 1.3 

.3 - CLEAR STATISTICAL TABLES 





» 



020656 

012701 

007314 


ClRSTA: MOV 

fREADSC.RI 

SET UP BEGINNING ADDRESS 

3024 

020662 

012702 

011240 


MOV 

#ENDST.R2 

SET UP TABLE LENGTH 

3025 

020666 

005021 



BDA133: CLR 

(R1 )♦ 

CLEAR ADDRESSED LOCATION 

3026 

020670 

020102 



CMP 

R1.R2 

DO UNTIL LAST ADDRESS DONE 

3027 

020672 

001375 



BNE 

BDA133 

3028 

3029 

020674 

000207 



END133: RTS 
;MOD 1.3.3 

PC 

-END MODULE 

RETURN 


SEO 6 2 
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3034 




.sbttl 

MOD 2.0 

3035 




; ------ 


3036 






3037 020676 

000240 



SCSYEX: 

NOP 

3038 020700 

005737 

014016 


IFK20: 

TST 

3039 020704 

001417 




BEQ 

3040 020706 

012737 

000001 

024252 


MOV 

3041 020714 

005037 

021430 



CLR 

3042 020720 

005037 

021432 



CLR 

3043 020724 

005037 

021434 



CLR 

3044 020730 

005037 

021442 



CLR 

3045 020734 

005037 

021444 



CLR 

3046 020740 

005037 

021452 



CLR 

3047 020744 

005037 

021446 


ELK20: 

CLR 

3048 020750 

033737 

021426 

002232 

IFA20: 

BIT 

3049 020756 

001406 




BEQ 

3050 020760 

004737 

004756 



CALL 

3051 020764 

013737 

005024 

002254 


MOV 

3052 020772 

000410 




BR 

3053 020774 

006337 

021426 


ELA20: 

ASL 

3054 021000 

022737 

000020 

021426 

DUC20: 

CMP 

3055 021006 

003360 




BGT 

3056 021010 

000137 

02U04 



JMP 

3057 021014 




BD820 : 

BGNSEG 

3058 021016 

013737 

002176 

021424 


MOV 

3059 021024 

004737 

021454 



CALL 

3060 021030 

013737 

022156 

021422 


MOV 

3061 021036 

032737 

000400 

021422 

IF 820: 

BIT 

3062 021044 

001514 




BEQ 

3063 021046 

004737 

032352 



CALL 

3064 021052 

032737 

004000 

021422 

IFC20: 

BIT 

3065 021060 

001001 




BNE 

3066 021062 

000411 




BR 

3067 021064 

023727 

021432 

000003 

I F I 20 : 

CMP 

3068 021072 

001065 




BNE 

3069 021074 

013737 

021432 

021444 


MOV 

3070 021102 

005037 

021432 



CLR 

3071 021106 

013737 

002234 

021450 

EIC20: 

MOV 

3072 021114 

052737 

002000 

021450 


BIS 

3073 021122 

032737 

001000 

021422 

IFF20: 

BIT 

3074 021130 

001001 




BNE 

3075 021132 

000410 




BR 

3076 021134 

012737 

002000 

021440 

ELF20: 

MOV 

3077 021142 

005737 

021430 


IFG20: 

TST 

3078 021146 

001420 




BEQ 

3079 021150 

005037 

021430 



CLR 

3080 021154 

053737 

021444 

002230 

EIF20: 

BIS 

3081 021162 

006337 

021426 



ASL 

3082 021166 

013737 

002234 

021450 


MOV 

3083 021174 

052737 

002000 

021450 


BIS 

3084 021202 

005037 

021432 



CLR 

3085 021206 

000504 




BR 

3086 021210 

005737 

002244 


IFH20: 

TST 

3087 021214 

001403 




BEQ 

3088 021216 

005037 

00224*. 



CLR 


SEO 63 


L 5 


SCHEDULE SYSTEM EXERCISE 


INI TL 

ELK20 

#1 ,INITTK 

EXHCP 

BTHDRV 

BDVSCD 

DVDNCK 

DRVDN 

ERTSAV 

SFERR 

SUTPTR, SUT 

ELA20 

CVSTUT 

UNITST.UUT 

BDB20 

SUTPTR 

#20.SUTPTR 

IFA20 

EDC20 

TSTN.EXN 

GETTST 

TSTUD.TST 

#400. TST 

ELB20 

STDVDN 

#4000. TST 

IF 120 

EIC20 

BTHDRV. #3 

IFL20 

BTHDRV. DRVDN 

BTHDRV 

UUT.RESTK 

#2000.RESTK 

#1000, TST 

ELF 20 

EIF20 

#2000,ADVTRK 

EXHCP 

IFH20 

EXHCP 

DRVDN. SDD 

SUTPTR 

UUT.RESTK 

#2060,RESTK 

8THDRV 

END 20 

DELDAT 

ELH20 

DELDAT 


IF INITIALIZE 
THEN 

SET INITIALIZE TRK FLG 
CLEAR EX HALF COMPL 
CLEAR BOTH DRV DONE FLG 
CLEAR BOTH DRV SEC DONE FLG 
CLEAR DRV DONE CK 'LG 
CLEAR DRV DONE 
CLEAR ERR TYP SAVE 
CLEAR SFT ERR 
IF SYSTEM UNDER TEST BIT 
IS SET 

CALL MOD U.A.2 - CONVERT SUTPTR— >UUT 
SET UNIT UNDER TEST 
BR TO BEGIN 'B' 

SHIFT SUT POINTER TO TEST 
DO UNTIL SUT POINTER 
EQUALS 10000 BIN 
BR TO END DO *C* 

BEGIN SEGMENT FOR ERROR LOOPS 
GET TEST # = EXERCISE # 

CALL HOD 2.1 - GET A TEST 
SAVE TEST WORD 
IF NEXT UNIT BIT 
IS SET THEN 

CALL MOD 2.6 -SET DRIVES DONE 
IF ADV TRK BIT 
IS NUT SET THEN 
BR TO END IF ’C' 

IF BOTH DRIVES DONE 
THEN 

SET BOTH DRVS DONE TEST 

CLEAR BOTH DRIVES DONE FLAG 8 THEN 

SET UUT TO RESET TRK 

SET INC TRK ONTO RESET TRK 

IF DEL DATA CK BIT 

IS SET THEN 

BR TO IF 'F* 

SET ADV TRK = INCR TRK 

IF EXERCISE 1/2 COMPLETE 

IS SET. THEN 

CLEAR EX HALF COMPLETE 

SET THIS DRV DONE 

SETUP PTR TO CK NXT UNIT 

GET UUT 

SET INCTRK ON RESET TRK FLAG 
CLEAR BOTH DRV DN FLAG 
BR TO END 
IF DEL DATA MODE 
IS SET 

CLEAR DEL DATA MODE 
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3089 021222 

000403 




BR 

EIH20 

3090 021224 

012737 

000010 

002244 

ELH20: 

MOV 

#10,DELDAT 

3091 021232 

005037 

021444 


E1H20: 

CLR 

DRVDN 

3092 021236 

012737 

000001 

021430 


MOV 

#1, EXHCP 

3093 021244 

000443 




BR 

EIB20 

3094 021246 

032737 

000003 

021434 

I F L 20 : 

BIT 

#3. BDVSCD 

3095 021254 

001405 




BEQ 

ELL20 

3096 021256 

005037 

021434 



CLR 

BDVSCD 

3097 021262 

012737 

004000 

021440 


MOV 

#4000. ADVTRK 

3098 021270 

004737 

022320 


ElL20 : 

CALL 

GTDRV 

30*39 021274 

000427 




BR 

E 1120 

3100 021276 

053737 

021440 

021436 

ELB20: 

BIS 

ADVTRK. INCTRK 

3101 021304 

013737 

021422 

023324 


MOV 

TST.DRVTST 

3102 021312 

004737 

022504 



CALL 

XDVTST 

3103 021316 

013737 

023324 

025410 


MOV 

DRVTST.TSTEV 

3104 021324 

004737 

025334 



CALL 

EVTSTR 

3105 021330 

013701 

021422 



MOV 

TST.R1 

3106 021334 

042701 

171777 



B1C 

#1 7l 777 . R 1 

3107 021340 

010137 

021436 



MOV 

R1. INCTRK 

3108 021344 

005037 

021440 



CLR 

ADVTRK 

3109 021350 

005037 

014016 



CLR 

INI TL 

3110 021354 

000240 



EIB20: 

NOP 


3111 021356 

005737 

002276 


IFM20: 

TST 

ERRTY 

3112 021362 

001402 




BEO 

DUB20 

3113 021364 

004737 

030702 



CALL 

OTERTP 

3114 021370 

005737 

002274 


DUB20: 

TST 

ERRSY 

3115 021374 

001011 




6NE 

END20 

3116 021376 





ENDSEG 


3117 021400 

000137 

021014 



JMP 

8DB20 

3118 021404 

012737 

000001 

021426 

EDC20: 

MOV 

#1. SUTPTR 

3119 021412 

052737 

000001 

021446 


BIS 

#1. SFERR 

3120 021420 

000207 



END20: 

RTS 

PC 

3121 







3122 021422 

000000 



TST: 

0 


3123 021424 

000000 



EXN: 

0 


3124 021426 

000001 



SUTPTR: 

1 


3125 021430 

000000 



EXHCP: 

0 


3126 021432 

000000 



BTHDRV: 

0 


3127 021434 

000000 



BDVSCD: 

0 


3128 021436 

000000 



INC TRK: 

0 


3129 021440 

000000 



ADVTRK: 

0 


3130 021442 

000000 



DVDNCK: 

0 


3131 021444 

000000 



DRVDN: 

0 


3132 021446 

000000 



SFERR: 

0 


3133 021450 

000000 



RESTK: 

0 


3134 021452 

000000 



ERTSAV: 

0 


3135 




;MOD 2. 

o 

END MODULE — 




SCO 64 


BR TO END IF *H' 

SET DEC DATA 10DE 
CLEAR DRV DON. 

SET EX 1/2 COMPLETE 
BR TO END IF *B' 

IF BOTH DRV SEC DONE 
THEN 

CLEAR DRV SEC DONE FLAGS 
ALLOW TRACK ADVANCE 
CALL MOD 2.2 - GET A DRIVE 
BR TO END IF 'B' 

SET ADV TRK (IF SET BY PREV OP) 
PASS DRIVE TEST 

CALL MOD 2.3. - EXECUTE DRIVE TEST 

PASS DRIVE TEST FOR EVAL 

CALL MOD 2.4 - EVAL. TEST RESULTS 

GET DRV TST 

SAVE TRK BITS 

SET TRK BITS 

CLEAR ADV TRK FLAG 

CLEAR INITIALIZE FLAG 

IF ERR TYPE 
NOT =0 

CALL MOD 2.5 - 0/P ERR TYPE 
DO UNLESS SYSTEM ERROR 
NOT =0 THEN 

END SEGMENT FOR ERROR LOOPS 

BR TO END MOD 

SET SYS UNDER TEST PTR 

SET SFT ERR 

END MODULE 


TEST FOR EXECUTION 
EXERCISE # 

SYSTEM UNDER TEST POINTER 

EXERCISE HALF COMPLETE <EX#7) DEL DATA PASS 

BOTH DRIVES DONE FLAG 

BOTH DRIVE SECTORS DONE FLAG 

INCREMENT TRACK FLAGS 

ADVANCE TRACK FLAG 

DRV DONE CK FLAG 

DRIVE DONE 

SOFTWARE ERR 

RESET TRK FLAG 

ERR TYP SAVE REG 
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3138 




.sbttl 

MOD 2.1 

- GET A TEST 

3139 







3140 







3141 021454 

000240 



GETTST : 

NOP 


3142 021456 

013701 

021424 



MOV 

EXN.R1 

3143 021462 

006301 




ASL 

R1 

3144 021464 

012702 

022164 



MOV 

AEXADTB.R2 

3145 021470 

060102 




ADD 

R1.R2 

3146 021472 

011257 

022154 



MOV 

(R2) .EXADR 

3147 021476 

005737 

014016 


IFL21 : 

TST 

INI TL 

3148 021502 

001406 




BEQ 

IFA21 

3149 021504 

005037 

022152 



CLR 

TST PT R 

3150 021510 




IFF21 : 

INLOOP 


3151 021512 





BNCOMPLETE IFA21 

3152 021514 

000137 

022122 



JMP 

EIF21 

3153 021520 

005737 

002304 


IFA21: 

TST 

retry 

3154 021524 

001410 




BEQ 

IFB21 

3155 021526 

032737 

000004 

002204 


BIT 

#BI T02 , SUREG 

3156 021534 

001106 




BNE 

IFH21 

3157 021536 

032737 

000004 

002264 


BIT 

#EVL .FLGDRS 

3158 021544 

001102 




BNE 

IFH21 

3159 021546 

005737 

022152 


IFB21: 

TST 

TSTPTR 

5160 021552 

001006 




BNE 

IFC21 

3161 021554 

012737 

000002 

022152 


MOV 

#2. TSTPTR 

3162 021562 

005037 

022160 



CLR 

TBPRCT 

3163 021566 

000555 




BR 

EIF21 

3164 021570 

005737 

002262 


IFC21: 

TST 

SECDN 

3165 021574 

001447 




BEQ 

IFG21 

3166 021576 

005737 

022160 


IFK21: 

TST 

TBPRCT 

3167 021602 

001444 




BEQ 

IFG21 

3168 021604 

062737 

000002 

022152 


ADD 

#2. TSTPTR 

3169 021612 

005037 

022160 



CLR 

TBPRCT 

3170 021616 

005037 

021442 



CLR 

DVDNCK 

3171 021622 

032737 

040000 

022156 

IFD21: 

BIT 

#40000, TSTWD 

3172 021630 

001411 




BEQ 

IFM21 

3173 021632 

005737 

002260 



TST 

TRKDN 

3174 021636 

001406 




BEQ 

IFM21 

3175 021640 

005037 

002260 



CLR 

TRKDN 

3176 021644 

012737 

0000C1 

021442 


MOV 

#1 .DVDNCK 

3177 021652 

000523 




BR 

EIF21 

3178 021654 

032737 

006000 

022156 

IFM21: 

BIT 

#6000, TSTWD 

3179 021662 

001517 




BEQ 

EIF21 

3180 021664 

032737 

100000 

022156 

IFN21 : 

BIT 

#100000, TSTWD 

3181 021672 

001404 




BEQ 

ELN21 

318? 021674 

162737 

000010 

022152 


SUB 

#10. TSTPTR 

3183 021702 

000507 




BR 

E IF 21 

3184 021704 

162737 

000004 

022152 

ELN21: 

SUB 

#4, TSTPTR 

3185 021712 

000503 




BR 

EIF21 

3186 021714 

005737 

022160 


IFG21: 

TST 

TBPRCT 

3187 021720 

001406 




BEQ 

ELG21 

3188 021722 

005037 

022160 



CLR 

TBPRCT 

3189 021726 

162737 

000002 

022152 


SUB 

#2. TSTPTR 

3190 021734 

000472 




BR 

E IF 21 

3191 021736 

005237 

022160 


ELG21: 

INC 

TBPRCT 

3192 021742 

062737 

000002 

022152 


ADD 

#2. TSTPTR 

3193 021750 

000464 




BR 

EIF21 

3194 021752 

032737 

000010 

002304 

IFH21 : 

BIT 

#10, RETRY 


SEQ 65 


GET EXERCISE NUMBER 

DOUBLE EXERCISE NUMBER 

GET EXERCISE ADDRESS TABLE 

CAL EXERCISE TO BE USED 

GET BEGIN ADR EXERCISE 

IF INITIALIZE 

IS SET, THEN 

CLEAR TST PTR 

IF IN LOOP 

SET. THEN 

BR TO END IF * F • 

IF RETRY 

NOT=0, AND 

IF RETRY ON ERROR 

IS NOT SET. THEN 

IF DRS •'EVL*' FLAG 

IS NOT SET, THEN 

IF TST PTR 

EQUALS ZERO 

ADV. TST PTR I CMD 

CLEAR TABLE PAIR COUNT 

BR TO END IF *F ' 

IF SECTOR DONE IS 
SET THEN 

IF TABLE PAIR CN1=1. 

THEN 

ADVANCE ONE TEST CMD 
CLEAR TABLE PAIR COUNT 
CLEAR DRV DONE CK FLAG 
IF DONE CK 
IS SET. THEN 
IF TRACK DONE IS 
SET, THEN 
CLEAR TRK DONE 
SET DRV DONE CK 
BR TO END IF 'F* 

IF ADV OR I NCR TRK 
IS SET. THEN 
IF '4 CMD SEQ* 

IS SET, THEN 
BACK UP 4 CMDS 
BR TO END IF *F' 

BACK UP TWO TEST CMDS 
BR TO END IF *F' 

IF TABLE PAIR COUNT 
EQUALS 1 THEN 
CLEAR TABLE PAIR COUNT 
BACK UP ONE CMD 
BR END IF *F ' 

INCREMENT TABLE PAIR COUNT 
ADVANCE ONE CMD 
BR END IF * F * 

IF NO DATA RETRY IS 




SEQ 66 


SET. OR 

IF NO CRC RETRY IS 
SET, THEN 
BR END IF *F * 

IF WRITE RETRY IS 
SET, THEN 
BACK UP 3 CMDS 
CLEAR WRITE RETRY 
SET TEST ADV COUNT=3 
BR TO END IF T 
IF READ RETRY IS 
SET THEN 
BACK UP 1 CMD 
CLEAR READ RETRY 
SET TEST ADV COUNT=1 
BR TO END IF ' I ' 

DECREMENT TEST ADV COUNT 
ADV TEST POINTER 1 CMD 
IF TEST ADV COUNTER 
EQUALS ZERO, THEN 
CLEAR RETRY 
SET TABLE PAIR COUNT 
BR TO END IF ’F* 

CLEAR TABLE PAIR CNT 

GET TEST POINTER 

CAL. CUR. TEST OF THIS EXERCISE 

PASS UP TEST WORD 

IF CMD LOWER BYTE 

EQUALS -1. THEN 

RESET TEST PTR 

RETURN 


TEST POINTER 

CURRENT EXERCISE TABLE BASE ADDRESS 
TEST WORD TO PASS UP 
TABLE PAIR COUNT 
TEST ADVANCE COUNTER 


;EXERCISE ADDRESS TABLE 
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3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 
5258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 

3277 

3278 

3279 

3280 

3281 

3282 

3283 

3284 

3285 

3286 

3287 

3288 

3289 

3290 
5291 

3292 

3293 
329 , 

3295 

3296 

3297 

3298 


.SBTTl - EXERCISE/TEST TABLE 


022204 

177777 

£xl : 

.WORD 

-1 



022206 

000000 


.WORD 

0 

0 0 

/ FILL BUFFER 

022210 

044002 


.WORD 

44002 

,-dck, advtrk 

/ WRITE SECTOR 

022212 

000777 


.WORD 

777 

;NXTUNT , 

/ -1 

022214 

177777 

EX2: 

.WORD 

-1 



022216 

000000 


.WORD 

0 

• <m 

0 0 

/ FILL BUFFER 

022220 

000002 


.WORD 

2 

• • 

0 0 

/ WRITE SECTOR 

022222 

000003 


.WORD 

3 

0 0 

/ READ SECTOR 

022224 

154001 


.WORD 

154001 

; 4 CMD.DCK, ADVTRK, RAW, 

/ EMPTY BUFFER 

022226 

000777 


.WORD 

777 

; NXTUNT, 

/ -1 

022230 

177777 

EX3: 

.WORD 

-1 



022232 

000000 


.WORD 

0 

0 * 0 

/ FILL BUFFER 

022234 

000002 


.WORD 

2 

• m 

0 0 

/ WRITE SECTOR 

022236 

000003 


.WORD 

3 

0 0 

/ READ SECTOR 

022240 

174001 


.WORD 

174001 

;4CMD,DCK,ADVTK,DACK.RAW/ EMPTY BUFFER 

022242 

000777 


.WORD 

777 

;NXTUNT, 

/ -1 

022244 

177777 

EX4: 

.WORD 

-1 



022246 

000003 


.WORD 

3 

0 0 

/ READ SECTOR 

022250 

064001 


.WORD 

64001 

;DCK,ADVTRK, DATACK, 

/ empty buffer 

022252 

000777 


.WORD 

777 

; NXTUNT. 

/ -1 

022254 

177777 

EX5: 

.WORD 

-1 



022256 

000003 


.WORD 

3 

0 0 

/ READ SECTOR 

022260 

044001 


.WORD 

44001 

;DCK,ADVTRK, 

/ EMPTY BUFFER 

022262 

000777 


.WORD 

777 

; NXTUNT. 

/ -1 

022264 

177777 

EX6: 

.WORD 

-1 



022266 

000000 


.WORD 

0 

• 0 

/ FILL BUFFER 

022270 

000002 


.WORD 

2 

i " # 

/ WRITE SECTOR 

022272 

000003 


.WORD 

3 

• • 

• 0 

/ READ SECTOR 

022274 

170001 


.WORD 

170001 

;4CMD.DCK, DATACK. RAW. 

/ EMPTY BUFFER 

022276 

004777 


.WORD 

4777 

;ADVTRK, NXTUNT, 

/ -1 

022300 

177777 

EX7: 

.WORD 

-1 



022302 

000000 


.WORD 

0 

0 0 

/ FILL BUFFER 

022304 

000002 


.WORD 

2 

0 0 

/ WRITE SECTOR 

022306 

000003 


.WORD 

3 

0 0 

/ READ SECTOR 

022310 

172001 


.WORD 

172001 

;4CMD.DCK,DACK. RAW. INCTK/ EMPTY BUFFER 

022312 

000003 


.WORD 

3 

0 0 

/ READ SECTOR 

022314 

064001 


.WORD 

64001 

; DCK . DATACK. ADVTRK. 

/ EMPTY BUFFER 

022316 

001777 


.WORD 

1777 

; DDCHK, NXTUNT, 

/ -1 


BIT# NUMONIC FUNCTION 


BIT# NUMONIC FUNCTION 


; 15 4CMD 4 COMMAND SEQUENCE 

; 14 DC* DONE CHECK 

; 13 DATACK DO DATA CHECK 

; 12 RAW READ AFTER WRITE FLAG 

• 11 ADVTRK ADVANCE TRACK MODE 

; 10 INCTK INCREMENT TRACK MODE 

; 09 DDCHK DEL. DATA CHECK 

; 08 NXTUNT GET NEXT UNIT. IF DONE LAST UNIT 

;MOD 2.1 END MODULE - 
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3301 









3302 









3503 

3304 





.SBTTL 

MOD 2.; 

l - GET A DRIVE 








* 


3505 









3306 

022320 

000240 



GTDRV: 

NOP 



3307 

022322 

032737 

000001 

002234 

IFA22: 

BJT 

#1 .UUT 

IF UUT=DRIVE 0 

3308 

022330 

001024 




BNE 

IFD22 

THEN 

3309 

022332 

032737 

000002 

002234 

1FB22: 

BIT 

#2. UUT 

IF UNIT/SIDE UNDER TEST (UUT) 

3310 

022340 

001404 




BEQ 

ELB22 

EQUALS 1 

3311 

022342 

012737 

000010 

022502 


MOV 

#10. TSTSUT 

SET TEST OF SYS. UNDER TEST UNIT/S1DE=1 
BR TO IF 'C* 

331? 

022350 

000403 




BR 

IF C$2 

3313 

02235? 

012737 

000002 

022502 

ELB22: 

MOV 

#2. TSTSUT 

SET TEST OF SYS. UNDER TEST UNIT/SIDE=0 

3314 

022360 

033737 

022502 

002232 

IFC22: 

BIT 

TSTSUT .SUT 

IF DRIVE 1 SELECTED FOR TEST 

5315 

022366 

001404 




BEQ 

ELC22 

THEN 

3316 

022370 

052737 

000001 

002234 


BIS 

#1 .UUT 

SET UNIT UNDER TEST TO DRV #1 

BR TO END IF *E ' 

BR TO THEN *E' 

3317 

022376 

000427 




BR 

EIE22 

3318 

022400 

000417 



ELC22: 

BR 

THE22 

3319 

022402 

032737 

000002 

002234 

IFD22: 

BJT 

#2. UUT 

IF UNIT/SIDE UNDER TEST (UUT) 

3320 

022410 

001404 




BEQ 

ELD22 

EQUALS 1 

3321 

022412 

012737 

000004 

022502 


MOV 

#4. TSTSUT 

SET TEST OF SYS. UNDER TEST UNIT/SIDE 1 

3322 

022420 

000403 




BR 

IFE22 

BR TO IF ’E* 

3323 

022422 

012737 

000001 

022502 

ELD22: 

MOV 

#1. TSTSUT 

SET TEST OF SYS. UNDER TEST UNIT/SIDE 0 

3324 

022430 

033737 

022502 

002232 

IFE22: 

BIT 

TSTSUT. SUT 

IF DRIVE 0 SELECTED FOR TEST 

3325 

022^36 

001404 




BEQ 

ELE22 

THEN 

3326 

022440 

042737 

000001 

002234 

THE22: 

B1C 

#1 .UUT 

SET UNIT UNDER TEST TO DRV#0 

5327 

022446 

000403 




BR 

EIE22 

BR TO END IF 'E* 

3328 

022450 

052737 

000001 

002234 

ELE22: 

BIS 

#1,UUT 

SET UNIT UNDER TEST TO DRV#1 

5329 

022456 

013704 

002234 


EIE22: 

MOV 

UUT.R4 

GET UNIT UNDER TEST 

3330 

022462 

006304 




ASL 

R4 

DOUBLE IT 

3331 

022464 

010437 

002240 



MOV 

R4.UUT0FF 

SET UUT OFFSET 

3332 

022470 

062704 

00233e> 



ADD 

#UT00,R4 

GET UUT UNIT # FOR PRINT 

3333 

022474 

011437 

002334 



MOV 

(R41.UNIT 

SET UNIT=PRINT UNIT # 

3334 

3335 

022500 

000207 



END22: 

RTS 

PC 

RETURN 









3336 

3337 

C22502 

000000 



TSTSUT: 

0 







.-MOD 2. 

2 

END MODULE 
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MOD 2.2 - GET A 

DRIVE 






3340 







3341 







3342 

3343 

3344 

5345 022504 




.SBTTL 

MOD 2.3 

- EXECUTE DRIVE 




• 



013737 

002252 

023326 

XDVTST: 

MOV 

WDCNT.WDCT 

3346 022512 

013702 

005737 

002240 


IFA23: 

MOV 

UUT0FF.R2 

3347 022516 

002172 


TST 

RXXX 

3348 022522 

001010 




BNE 

IS 

3349 022524 

032737 

000002 

002234 


BIT 

M2 . UUT 

3350 072532 

001404 




BEQ 

IS 

3351 022534 

013737 

002222 

002236 


MOV 

U1ADR.UUTADR 

3352 022542 

000403 




BR 

IF 123 

3353 022544 

013737 

002220 

002236 

IS: 

MOV 

UOADR.UUTADR 

3354 022552 

005737 

021450 


IF 123: 

TST 

RESTK 

3355 022556 

001413 




BEQ 

IFB23 

3356 022560 

113705 

021450 



M0V8 

RESTK, R5 

3357 022564 

006305 




ASL 

R5 

3358 022566 

062705 

023306 



ADD 

ACTRK.R5 

3359 022572 

013715 

002206 



MOV 

OTDITK, (R5) 

3360 022576 

005037 

002262 



CLR 

SECDN 

3361 022602 

005037 

021450 


IFB23: 

CLR 

RESTK 

3362 022606 

005737 

014016 


TST 

INI TL 

3363 022612 

001415 




BEQ 

EIB23 

3364 022614 

012705 

023276 



MOV 

#CSEC.R5 

3365 022620 

012704 

000004 



MOV 

#4 ,R4 
(R5) + 

3366 022624 

005025 



IS: 

CLR 

3367 022626 

005304 




DEC 

R4 

3368 022630 

001375 




BNE 

IS 

3369 022632 

012704 

000004 



MOV 

«4,R4 

3370 022636 

013725 

002206 


2S: 

MOV 

OTDITK, <R5)* 

3371 022642 

005304 




DEC 

R4 

3372 022644 

001374 




BNE 

2S 

3373 022646 

012701 

023306 


E 1823: 

MOV 

#ctrk,ri 

3374 022652 

060201 




ADD 

R2.R1 

3375 022654 

010137 

023320 



MOV 

R1 .CNTKLC 

3376 022660 

017737 

000434 

024240 


MOV 

BCNTKLC.CURTRK 

#C$EC.R1 

3377 022666 

012701 

023276 



MOV 

3378 022672 

060201 




ADD 

R2.R1 

3379 022674 

010137 

023316 



MOV 

R1.CNSCLC 

3380 022700 

017737 

000412 

023710 

IFJ23: 

MOV 

3CNSCLC . CURSE C 

3381 022706 




INLOOP 


3382 022710 





BNCOMPLETE 1FC23 

338! 022712 

000532 



IFC23: 

BR 

EIJ23 

3384 022714 

005737 

002304 


TST 

RETRY 

3385 022720 

001447 




BEQ 

IFG23 

3386 022722 

032737 

000004 

002204 


BIT 

«B1T02,SWREG 

3387 022730 

001004 




BNE 

IFD23 

3388 022732 

032737 

000004 

002264 


BIT 

#EVL. FLOORS 
IFG2$ 

3389 022740 

001437 




BEQ 

3390 022742 

032737 

000001 

002304 

IFD23: 

BIT 

#1 .RETRY 

3391 022750 

001001 




BNE 

IS 

3392 022752 

000404 




BR 

2S 

339? 022754 

032737 

000010 

002204 

IS: 

BIT 

#BI T03.SWREG 

3394 022762 

001003 




BNE 

THD23 

3395 022764 

005037 

023322 


2S: 

CLR 

SEEK 

3596 022770 

000420 




BR 

EID23 


TEST 


SET DRIVE WORD CNT 
GET UUT OFFSET 
IF DEVICE IS AN 
RX02 THEN 

IF UNIT UNDER TEST IS 
#1 Then 

GET UNIT #1 UNIBUS ADR 
BR TO END IF ’A* 

GET UNIT MO UNIBUS ADR 
IF RESET TRK 
IF SET, THEN 
GET UUT OFFSET 
DOUBLE OFFSET 
ADD TRK TABLE ADR 
RESET TO MIN TRK 
CLEAR SEC DONE FLAG 
CLEAR RESET TRK FLAG 
IF INITIALIZE IS 
SET. THEN 

GET START Or CUR TRK tSEC TBL 

SET TBL LENGTH 

CLEAR TABLES 

DECR TBL LENTGH 

DO UNTIL LENGHT=0 

SET TBL LENGTH 

SET STARTING TRACKS 

DECREMENT TBL LENGTH 

DO UNTIL LENGTH=0 

GET BEGIN ADR DRIVE CURRENT TRK. 

CAL. DRIVE CUR. TRK. LOCATOR 

SAVE DRV. CUR. TRK. 

GET DRIVE CUR. TRK. 

GET BEGIN ADR DRIVE CUR. SEC. 
CAL. DRIVE CUR. SEC. LOCATOR 
SAVE DRV CUR SEC LOC. 

GET DRIVE CUR SEC. 

IF IN LOOP 
THEN 

BR TO END IF 'I* 

IF RETRY IS 
N0T=0, AND 
IF RETRY ON ERR 
SET OR 

DRS 'W FLAG 
IS SET, THEN 
IF SEEK RETRY 
IS = 0 

THEN BR TO 2S 
ELSE IF RECAL SWITCH 
IS NOT SET 

THEN CLEAR SEEK FUNCTION F t AG 
BR TO END If 'D‘ 
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MOD 2.3 

- EXECUTE DRIVE 

TEST 





3397 

022772 

012737 

OAOOOO 

02AA0A 

THD23: 

MOV 

#40000. DVTST 

3398 

023000 

OOA737 

024254 



CALL 

GTDVFN 

3399 

02300A 

013737 

023332 

C23330 


MOV 

DRVFN.WDOT 

3AOO 

023012 

013737 

002236 

02503A 


MOV 

UUTADR.CSADR 

3A01 

023020 

00A737 

02AA06 



call 

OTDVFN 

3A02 

02302A 

012737 

000001 

023322 


MOV 

#1 .SEEK 

3A03 

023032 

005037 

00230A 


EID23: 

CLR 

retry 

3AOA 

023036 

000A60 




BR 

E I J 23 

3405 

0230A0 

013705 

02332A 


IFG23: 

MOV 

DRVTST.R5 

3A06 

0230AA 

0A2705 

177770 



BIC 

/T177776.R5 

3A07 

0230S0 

005705 




TST 

R5 

3A08 

0230S2 

001 AO A 




BEQ 

IFE23 

3A09 

02305A 

022705 

000003 



CMP 

#3.R5 

3A10 

023060 

001A01 




BEQ 

IFE23 

3A11 

023062 

000A3A 




BR 

1FH23 

3A1 2 

02306A 

005737 

002262 


I F E 2 3 : 

TST 

SECDN 

3A1* 

023070 

001A17 




BEQ 

ELE23 

3A1A 

023072 

005737 

021A36 


I T F 23 : 

TST 

inctrk 

3A15 

023076 

001A1A 




BEQ 

ELE23 

3A16 

023100 

013737 

021A36 

02A236 


MOV 

INCTRK. TRKINC 

3A1 7 

o:::c6 

00A737 

0237A2 



CALL 

GETTRK 

3A18 

023112 

01 377 i 

02A2A0 

000200 


MOV 

CURTRK.SCNTKLC 

3A19 

023120 

012737 

000001 

023322 


MOV 

#1 .SEEK 

3A20 

023126 

000(02 




BR 

EIE23 

3A21 

023130 

005037 

023322 


ELE23: 

CLR 

SEEK 

3A22 

0231 3A 

017737 

000156 

023710 

E I E 23 : 

MOV 

iCNSCLC.CURSEC 

3A23 

0231 42 

004737 

02333A 



CALL 

GETSEC 

3A2A 

0231A6 

013777 

023710 

0001A2 


MOV 

CURSEC .aCNSCLC 

3A25 

0231 5A 

032737 

000006 

02332A 

1FH23: 

BIT 

#6,DRVTST 

3A26 

023162 

001006 




BNE 

EIJ23 

3*»27 

02316A 

012701 

03A006 



MOV 

«DArPAT.R1 

3A28 

023170 

117721 

0001 2A 



MOVB 

dCNTKLC , (R1 >♦ 

3A29 

0231 7A 

117711 

000116 



MOVB 

aCNSCLC. (RD 

3A30 

023200 

005037 

02AA0A 


E I J 2 3 : 

CLR 

DVT ST 

3A31 

02320A 

113737 

02332A 

02AA0A 


MOVB 

DRVTST.DVTST 

3A32 

023212 

00A737 

02A25A 



CALL 

GTDVFN 

3A33 

023216 

013737 

023332 

002332 


MOV 

DRVFN.CMD 

3A3A 

02322A 

013737 

023332 

023330 


MOV 

DRVFN.WDOT 

3A35 

023232 

017737 

000062 

025036 


MOV 

dCNTKLC .TRKADR 

>A 36 

0232A0 

017737 

000052 

0250A0 


MOV 

aCNSCLC. SECADR 

5A37 

0232A6 

013737 

002236 

02503A 


MOV 

UUTADR.CSADR 

3A38 

02325A 

00A737 

02AA06 



CALL 

OTDVFN 

5A39 

023260 

013737 

025036 

00225A 


MOV 

TRKADR. TRACK 

3AAO 

023266 

013737 

0250A0 

002256 


MOV 

SECADR. SECTOR 

3AA1 

02327A 

000207 




RTS 

PC 

34' 2 





• 




PASS PROGRAM INITIALIZE TO DRIVE TEST 

CALL MOD 2.3.3 GET DRIVE FUNCTION 

PASS DRIVE FUNCTION 

SET ADR FOR DRIVE FUNCTION 

CALL MOD 2. 3. A O/P DRIVE FUNCTION 

SET SEEK FLAG 

CLEAR RETRY FLAGS 

BR TO END IF 'C* 

SETUP DRIVE TST 
FOR TYPE CK 
IF DRIVE TST 
IS NOT ’FILL BUFF* 

OR 

NOT 'READ SEC 1 , THEN 
BR TO IF 'H* 

IF SEC DONE 
IS = 1 

IF INCR TRK FLAGS 

ARE SET .THEN 

PASS TRK FLAGS 

CALL MOD 2.3.2 GET TRACK 

SAVE CURRENT TRACK 

SET SEEK FLAG 

BR TO END IF *E’ 

RESET SEEK 

PASS CURRENT SECTOR 

CALL MOD 2.3.1 GET A SECTOR 

SAVE UPDATED CURRENT SECTOR 

IF DRIVE TST 

IS ’FILL BUFF’ .THEN 

SET UP DATA PATTERN ADR 

SET TRK ADR IN DATA BUF BYTE «0 

SET SEC ADR IN DATA BUF BYTEfl 

CLEAR DRIVE TEST 

PASS DRIVE TEST 

CALL MOD 2.3.3 GET DRIVE FUNCTION 

SET COMMAND FOR PRINT 

PASS FUNCTION WORD (PASS TO 2. 3. A) 

PASS CURRENT TRACK (PASS TO 2. 3. A) 

PASS CURRENT SECTOR (PASS TO 2. 3. A) 

PASS UUT CIS ADR (PASS TO 2. 3. A) 

CALL MOD 2. 3. A O/P DRIVE FUNCTION 

SAVE TRACK ADDR IN GLOBAL 

SAVE SECTOR ADDR IN GLOBAL 

RETURN 
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MOD 2.3 

3445 

3446 

- EXECUTE DRIVE TEST 











3447 

023276 

000000 

CSEC: 

.WORD 

0 

CURRENT DRV SECTOR TABLE 

3448 

023300 

000000 


.WORD 

0 


3449 

023302 

000000 


.WORD 

0 


3450 

023304 

000000 


.WORD 

0 


3451 

023306 

000000 

CTRK: 

.WORD 

0 

CURRENT DRV TRK TABLE 

3452 

023310 

000000 


.WORD 

0 


3453 

023312 

000000 


.WORD 

0 


3454 

023314 

000000 


.WORD 

0 


3455 







3456 

023316 

000000 

CNSCLC : 

.WORD 

0 

CURRENT SECTOR LOCATOR 

3457 

023320 

000000 

CNTKLC : 

.WORD 

0 

CURRENT TRACK LOCATOR 

3458 

023322 

000000 

SEEK: 

.WORD 

0 

SEEK FLAG 

3459 

023324 

000000 

DRVTST: 

.WORD 

0 

DRIVE TEST 

3460 

025326 

000000 

UDCT: 

.WORD 

0 

WORD COUNT 

3461 

023330 

000000 

UDOT: 

• WORD 

0 

FUNCTION WORD TO SEND OUT 

3462 

023332 

000000 

DRVFN: 

.WORD 

0 

DRIVE FUNCTION WORD 

3463 



;MOD 2. 

3 

END MODULE 
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3.1 - GET A SECTOR 







m m 


3468 







3469 023334 

005037 

023704 


GETSEC: CLR 

UTSCDN 

CLEAR UUT SECTOR DONE 

3470 023340 

013705 

002234 


MOV 

UUT.R5 

GET UNIT UNDER TST 

3471 023344 

006305 



ASL 

R5 

DOUBLE FOR URD ADR 

3472 023346 

005737 

014016 


IF 1231 : TST 

INI TL 

IF INITIALIZE IS 

3475 023352 

001406 



BEQ 

El 1231 

SET. THEN 

3474 023354 

012701 

023664 


MOV 

#SSEC.R1 

GET STARTING SEC ADR 

3475 023360 

005021 



CLR 

(R1 ) * 

CLEAR UNTOO SSEC 

3476 023362 

005021 



CLR 

(R1 ) ♦ 

CLEAR UNT01 SSEC 

3477 023364 

005021 



CLR 

CR1 ) ♦ 

CLEAR UNT10 SSEC 

3478 023366 

005011 



CLR 

(R1 ) 

CLEAR UNT11 SSEC 

3479 023370 

012701 

023664 


El 1231 : MOV 

#SSEC.R1 

GET START SECTOR BASE ADR 

3480 023374 

060501 



ADD 

R5.R1 

FIND ADR UUT START SECTOR (TEMP 1) 

3481 023376 

011102 



MOV 

(R1 ) ,R2 

SAVE UUT STARTING SECTOR (TEMP 2) 

3482 C23400 

012703 

023674 


MOV 

0NSEC.R3 

GET NEXT SECTOR BASE ADR 

3483 023404 

060503 



ADD 

R5.R3 

FIND ADR UUT NEXT SECTOR (TEMP 3) 

3484 023406 

01 1 304 



MOV 

(R3J.R4 

SAVE UUT NEXT SECTOR (TEMP 4) 

3485 023410 

020237 

002212 


IFA231: CMP 

R2.HINSEC 

IF STARTING SECTOR < MIN. SECTOR 

3486 023414 

103422 



BLO 

ELA231 

THEN 

3487 023416 

010437 

023710 


MOV 

R4.CURSEC 

SET CURRENT SECTOR=UUT NEXT SECTOR 

3488 023422 

023737 

023660 

023706 

IFG231: CMP 

scpsct.intlv 

IF SECTOR PASS CNT< INTERLV 

3489 023430 

103053 



BH1S 

THF231 

THEN BR TO THEN *F ' .ELSE 

3490 023432 

005737 

023662 


IFH231: TST 

STSCFG 

IF START SEC FLAG 

3491 023436 

001405 



BEQ 

ELM231 

IS SET. THEN 

3492 023440 

005037 

023662 


CLR 

STSCFG 

CLEAR FLAG 

3493 023444 

010204 



MOV 

R2.R4 

SET DRV NXT SEC= DRV START SEC 

3494 023446 

010213 



MOV 

R2.(R3> 

SAVE DRV NXT SEC 

3495 023450 

000426 



BR 

IFC231 

BR TO IF ’C* 

3496 023452 

063704 

023706 


ELH231: ADD 

INTLVjR4 

NSEC=NSEC* INTERLV 

3497 023456 

010413 



MOV 

R4.(R3> 

SAVE NEXT SEC 

3498 023460 

000422 



BR 

IFC231 

BR TO IF *C* 

3499 023462 

013737 

002212 

023710 

ELA231: MOV 

HINSEC.CURSEC 

SET CURRENT SECTOR = MIN. SECTOR 

3500 023470 

013711 

002212 


MOV 

HINSEC.(RI) 

SET UUT START SECTOR = MIN. SECTOR 

3501 023474 

013702 

002212 


MOV 

HINSEC.R2 

SET R2-MINSEC 

3502 023500 

005037 

023660 


CLR 

SCPSCT 

CLEAR SECTOR PASS COUNT 

3503 023504 

023737 

002212 

002214 

IF8231 : CMP 

MINSiC.MAXSEC 

IF MAX. SECTOR NOT=MIN. SECTOR 

3504 023512 

001443 



BEQ 

ELB231 

THEN 

3505 023514 

010205 



THB231: MOV 

R2.R5 

GET UUT STARTING SECTOR 

3506 023516 

063705 

023706 


ADD 

INTLV.R5 

ADD SECTOR INTERLEAVE 

3507 023522 

010513 



MOV 

R5,(R3> 

SAVE NEXT UUT NEXT SEC (TEMP 5) 

3508 023524 

010504 



MOV 

R5.R4 

SAVE NEXT UUT NEXT SEC (TEMP 4) 

5509 023526 

020437 

002214 


IFC231: CMP 

R4.MAXSEC 

IF NEXT SECTOR > MAX. SECTOR 

3510 023532 

103432 



BLO 

ELC231 

THEN 

3511 023534 

005211 



INC 

(R1 ) 

INCREMENT UUT STARTING SECTOR 

3512 023536 

011102 



MOV 

(RD.R2 

SET UP NEW START SEC 

3513 023540 

005237 

023660 


INC 

SCPSCT 

1NCR SECTOR PASS CNT 

3514 023544 

020437 

002214 


IFD231: CMP 

R4.MAXSEC 

IF NXT SEC NOT = MAX SEC 

3515 023550 

001417 



BEQ 

ELD231 

THEN 

3516 023552 

020237 

002214 


I F F 231 : CMP 

R2.MAXSEC 

IF DRV START SEC > MAX SEC 

3517 023556 

101411 



BLOS 

ELF231 

THEN 

3518 023560 

012737 

000001 

023704 

THF231: MOV 

#1 .UTSCDN 

SET UUT SECTOR DONE 

3519 023566 

004737 

023712 


CALL 

STSCDN 

CALL HOD 2. 3.1. A - SET DRIVE SECTOR DONE FLAG 

3520 023572 

005011 



CLR 

(R1 ) 

CLEAR UUT STARTING SECTOR 

3521 023574 

005037 

023660 


CLR 

SCPSCT 

CLEAR SEC PASS CNT 

5522 023600 

000420 



BR 

END231 

BRANCH TO END GET SECTOR 
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3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 
353A 

3535 

3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 
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023602 

023604 

023606 

023610 

023616 

023620 

023622 

023630 

023634 

023640 

023642 

023650 

023654 

023656 

023660 

023662 

023664 

023666 

023670 

023672 

023674 

023676 

023700 

023702 

023704 

023706 

023710 


010213 

010204 

000415 

012737 

000411 

000410 

012737 

004737 

005037 

005011 

013737 

010437 

000207 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000003 

000000 




E LF 231 : 

MOV 

R2.CR3) 

SET DRV NXT SEC = DRV START SEC 




MOV 

R2.R4 

SAVE DRV NXT SEC 




BR 

END231 

BR TO END 

000001 

023662 

ELD231: 

MOV 

#1 .STSCFG 

SET START SEC FLAG 




BR 

END231 

BR TO END 



E L C 231 : 

BR 

END231 

BRANCH TO END GET SECTOR 

000001 

023704 

ELB231: 

MOV 

#1. UTSCDN 

SET DRIVE SECTOR DONE FLAG 

023712 


call 

STSCDN 

CALL MOD 2. 3.1. A - SET DRIVE SECTOR 

023660 



CLR 

SCPSCT 

CLEAR SEC PASS CNT 



CLR 

CR1) 

CLEAR UUT STARTING SECTOR 

023704 

002262 

END231: 

MOV 

UTSCDN. SECDN 

PASSUP UNIT SECTOR DONE 

023656 



MOV 

R4. NXSCSA 





RTS 

PC 

RETURN TO MOD 2.3 


;M09 2. 

NXSCSA 

SCPSCT 

STSCFG 

SSEC: 


NSEC: 


UTSCDN 
INTLV: 
CURSEC 
;M0D 2 


3.1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

3 

0 

3.1 


REGISTERS t TABLES 


END MODULE 


SEC PASS COUNT 

CET NEW STARTING SEC FLAG 

UJT STARTING SECTOR 


UUT NEXT SECTOR 


UUT SECTOR DONE FLAG 
SECTOR INTERLEAVE 
CURRENT SECTOR UUT 






.sbttl MOD 2. 

3.1. A - SET SECTOR 

DONE 



023712 

032737 

000001 

002234 

• 

STSCDN: BIT 

#1.UUT 

IF DRIVE #1 DONE 



023720 

001404 



BED 

IS 

THEN 



023722 

052737 

000002 

021434 

BIS 

#2.BDVSC0 

SET DRIVE #1 SEC 

DONE 

FLAG 

023730 

000403 



BR 

2S 

BR TO END 



023732 

052737 

000001 

021434 

IS: BIS 

#1 .BDVSCD 

SET DRIVE #0 SEC 

DONE 

flag 

023740 

000207 



2$: RTS 

PC 

RETURN 







;MOD 2.3.:. A - 

— — END MODULE — 






J 6 
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3567 .SBTTl MOD 2. 3.2 - GET A TRACK 

3568 

3569 


3570 023742 

013737 

002210 

024234 

GETTRK: 

MOV 

inditk.maxtrk 

3571 023750 

013737 

002206 

024232 


MOV 

otditk.mintrk 

3572 023756 

005737 

024252 


IFH232: 

TST 

inittk 

3573 023762 

001413 




BEQ 

EIH232 

3574 023764 

005037 

024252 



CLR 

INITTK 

3575 023770 

012701 

024242 



MOV 

atktl.ri 

5576 023774 

005021 




CLR 

( Rl ) * 

3577 023776 

005021 




CLR 

(Rl ) ♦ 

3578 024000 

005021 




CLR 

(Rl ) ♦ 

3579 024002 

005011 




CLR 

(Rl) 

5580 024004 

013737 

024232 

024240 


MOV 

MINTRK .CURTRK 

3581 024012 

013702 

002234 


EIH232: 

MOV 

UUT.R2 

3582 024016 

006302 




ASL 

R2 

3583 024020 

005037 

024230 



CLR 

TRKDNF 

3584 024024 

032737 

002000 

024236 

IFA232: 

BIT 

#2000. TRK INC 

3585 024032 

001023 




BNE 

IFG232 

3586 024034 

012701 

024242 



MOV 

#tktl,ri 

3587 024040 

060201 




ADD 

R2.R1 

3588 024042 

011102 




MOV 

(Rl ) ,R2 

3589 024044 

012703 

033554 



MOV 

#TRKTBL ,R3 

3590 024050 

060203 




ADD 

R2.R3 

3591 024052 

005202 




INC 

R 2 

3592 024054 

010211 




MOV 

R2.(R1> 

3593 024056 

111337 

024240 



MOVB 

(R3>, CURTRK 

3594 024062 

005203 




INC 

R3 

3595 024064 

105713 



IFF 232 : 

TSTB 

(R3) 

3596 024066 

002004 




BGE 

ELF 232 

3597 024070 

012737 

000001 

024230 


MOV 

#1 .TRKDNF 

3598 024076 

005011 




CLR 

(Rl) 

3599 024100 

000445 



ELF 232: 

BR 

END232 

3600 024102 

123737 

024240 

024234 

IFG232: 

CMP8 

CURTRK, MAXTRK 

3601 024110 

103403 




BLO 

IFB232 

3602 024112 

013737 

024232 

024240 


MOV 

MINTRK, CURTRK 

3603 024120 

123737 

024240 

024232 

IF 8232: 

CHPB 

CURTRK, MINTRK 

3604 024126 

103427 




BLO 

ELB232 

3605 024130 

013701 

024240 



MOV 

CURTRK, Rl 

3606 024134 

005201 




INC 

Rl 

3607 024136 

120137 

024234 


IF C232: 

CHPB 

Rl .MAXTRK 

3608 024142 

103001 




BHIS 

1 F 0232 

5609 024144 

000406 




BR 

EID232 

5610 024146 

120137 

024234 


IF 02 52: 

CHPB 

Rl, MAXTRK 

3611 024152 

001006 




BNE 

IFE232 

3612 024154 

012737 

000001 

024230 


MOV 

#1 .TRKDNF 

5613 024162 

010137 

024240 


EID232: 

MOV 

Rl. CURTRK 

5614 024166 

000412 




BR 

END232 

3615 024170 

123737 

024234 

024232 

I F E 232 : 

CHPB 

MAXTRK, MINTRK 

3616 024176 

001003 




BNE 

ELB232 

3617 024200 

012737 

000001 

024230 


MOV 

#1 .TRKDNF 

3618 024206 

013737 

024232 

024240 

ELB232: 

MOV 

MINTRK, CURTRK 

36 ? 024214 

013737 

024230 

002260 

END232: 

MOV 

TRKDNF. TRKDN 

3620 024222 

005037 

024236 



CLR 

TRK 1 NC 

3621 024226 

000207 




RTS 

PC 


362? 


SEO 74 


GET INSIDE 01 A AS SET BY OP 
GET OUTSIDE DIA AS SET BY OP 
If INITIALIZE TRK IS 
SET, THEN 

RESET INITIALIZE TRK FLG 

GET START OF TRK TBL 

SET UNTOO 

SET UNT01 

SET UNT10 

SET UNT11 

SET MIN CURRENT TRK 

GET UNIT UNDER TEST INDICATOR 

DOUBLE FOR ADDRESSING WORDS 

CLEAR TRACK DONE FLAG 

IF INCREMENT TRACK FLAG 

NOT SET, THEN (USE SELECTED TRK SEO) 

GET DRIVE TRACK TABLE LOCATOR BASE ADR 

CAL. DRV. TRK. TAB. LOCATOR ADR 

GET DRV. TRK. TAB. LOCATOR 

GET BEGIN TRACK TABLE ADR 

CAL. TRACK TAB. ADR. THIS DRIVE 

INCREMENT DRV. TRK. TAB. LOCATOR 

SAVE DRV. TRK. TAB. LOCATOR 

SAVE CURRENT TRACK 

INCREMENT TRACK TAB. POINTER 

IF NEXT TRACK 

equals 

THEN SET TRACK DONE FLAG 

RESET DRV. TRK. TAB. LOCATOR ADR. 

BR TO END MOD. 

IF CURRENT TRK > OR = MAX TRK (0. D.) 
THEN 

SET CURRENT TRK - MIN TRK 

IF CURRENT TRK > OR = MIN TRK (O.D.) 

THEN 

GET CURRENT TRACK 

INCREMENT CURRENT TRACK 

IF CURRENT TRK *1 < MAX TRK d.D.) 

THEN 

BRANCH TO END IF *D' 

IF CURRENT TRK *1 = MAX TRK 
THEN 

SET TRK DONE FLAG 

SAVE CURRENT TRK *1 = CURRENT TRK 

BR END OF MOD. 

IF TRK MAX = TRK MIN 
THEN 

SET TRK DONE FLAG 

SET CURRENT TRK = MIN. TRK (O.D.) 

SAVE TRACK DONE flag 
CLEAR TRK 1NCR FLAG 
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3625 

3626 02'. 2 30 

000000 

tRKDNF : 

.WORD 

0 

; TRACK DONE FLAG 

3627 024232 

000000 

MINTRK: 

.WORD 

0 

.•MINIMUM TRACK - O.D. 

3628 024234 

000000 

MAXTRK: 

.WORD 

0 

; MAXIMUM TRACK - I.D. 

3629 024236 

000000 

TRK1NC: 

.WORD 

0 

.•INCREMENT TRK FLAG 

3630 024240 

000000 

CURTRK: 

.WORD 

0 

; CURRENT TRACK 

3631 024242 

000000 

TKTL: 

.WORD 

0 

;DRV TRK TABLE LOCATOR 

3632 024244 

000000 


.WORD 

0 


3633 024246 

000000 


.WORD 

0 


3634 024250 

000000 


.WORD 

0 


3635 024252 

000000 

INITTK: 

.WORD 

0 

; INITIALIZE TRK FLAG 

3636 


:M0D 2. 

3.2 

— END MODULE - 
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MOD 2.3.3 - GET A DRIVE FUNCTION 



L 6 


SEQ 76 


.3 - GET A DRIVE FUNCTION 


R1 

DVTST.R1 
#40000, R1 
IFB233 
#1 77700, R1 
R1 

#1 ,R1 
R1,#5 
1F§233 
DELDAT ,R1 
RXXX 
IFD233 
#2,UUT 
EIC233 
#1000. R1 
1 F 0235 
#1000, R1 
#1.UUT 
ELD233 
#20, R1 
EID$33 
#20. R1 
DEN.R1 
#100. R1 
R1 .DRVFN 
PC 


CLEAR REG #1 
GET DRIVE TEST 
IF NOT INITIALIZE 
THEN 

CLEAR TOP BYTE OF R1 
FORMAT FUNCTION 
SET GO BIT 
IF URT FUNCT 
THEN 

SET DEL DAT URT (IF SET) 

IF DRIVE IS RXXX 
THEN 

IF SIDE #1 IS SELECTED 
THEN 

SET SIDE #1 BIT 
BRANCH TO IF 'D* 

SET FOR SIDE #0 
IF UNIT UNDER TEST IS 
DRIVE #1 

THEN SET DRIVE #1 SELECT BIT 
BRANCH TO IF ( D' 

ELSE CLEAR DRIVE #1 SELECT BIT 
SET DENSITY BIT 
SET INTERRUPT BIT 
PASS UP FUNCTION WORD 
RETURN 


END MODULE 


; DRIVE TEST WORD 



M 6 


SEO 77 


HARDWARE TESTS MACRO M1200 15-DEC-82 

MOD 2.3.4 - OUTPUT DRIVE FUNCTION 


3673 

3674 

3675 

3676 024406 

3677 024412 

3678 024416 

3679 024422 

3680 024430 

3681 024436 

3682 024444 

3683 024450 

3684 024456 

3685 024460 

3686 024464 

3687 024472 

3688 024474 

3689 024502 

3690 024504 

3691 024512 

3692 024520 

3693 024526 

3694 024532 

3695 024540 

3696 024542 

3697 024550 

3698 024552 

3699 024560 

3700 024566 

3701 024574 

3702 024600 

3703 024602 

3704 024610 

3705 024612 

3706 024620 

3707 024622 

3708 024630 

3709 024636 

3710 024644 

3711 024652 

3712 024656 

3713 024664 

3714 024672 

3715 024700 

3716 024706 

3717 024712 

3718 024714 
5 7 19 024722 

3720 024730 

3721 024736 

3722 024742 

3723 024744 

3724 024752 

3725 024754 

3726 024762 

3727 024764 

3728 024772 

3729 025000 


013701 
062701 
010137 
012737 
013737 
013737 
004737 
032737 
001402 
000137 
032737 
001043 
032737 
001047 
012737 
013737 
013737 
004737 
032737 
001004 
012737 
000403 
012737 
012737 
013737 
004737 
000444 
032737 
001455 
032737 
001035 
012737 
013737 
042737 
013737 
004737 
013737 
042737 
012737 
013737 
004737 
000437 
012737 
012737 
013757 
004737 
000423 
032737 
001404 
012737 
000413 
012737 
013737 
01 5737 


025034 

000002 

025032 

000040 

023330 

025034 

025042 

040000 

025016 

000010 

000004 

000200 

023326 

025032 

025042 

000002 

034006 

034406 

000200 

025032 

025042 


025330 

025022 

025024 

023330 


023330 

023330 

025330 

025022 

025024 

023330 

025022 

025022 

025330 

025024 


000004 023330 
000002 023330 


000200 
025040 
1 77700 
025032 
025042 
025036 
1 77600 
000200 
025032 
025042 

000200 

033544 

025032 

025042 

000002 

000001 

000200 

025050 

025032 


025330 

025022 

025022 

025024 

025022 

025022 

025330 

025024 


025330 

025022 

025024 


023330 

025026 

025330 

02502? 

025024 


13:50 PAGE 107 


.SBTTl MOD 2.3.4 - OUTPUT DRIVE FUNCTION 


OTDVFN: MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
JSR 

IFA234: BIT 
BEQ 
JMP 

THA234 : BIT 
BNE 

IFH234: BIT 
BNE 
MOV 
MOV 
MOV 
JSR 

IFK234: BIT 
BNE 
MOV 
BR 

ELK234: MOV 

E1K234: MOV 
MOV 
JSR 
BR 

IFC234: BIT 
BED 

1FD234: BIT 
BNE 

ELH234: MOV 
MOV 
BIC 
MOV 
JSR 
MOV 
BIC 
MOV 
MOV 
JSR 

E1H234: BR 

ELD234: MOV 
MOV 
MOV 
JSR 

1FE234: BIT 
BEQ 

THE234: MOV 
BR 

ELE234: MOV 
MOV 
MOV 


CSADR.R1 

#2,R1 

ftl .DBADR 

#DNB1T,RDYUD 

UDOT. URDS 

CSADR.ADRS 

PC.OUTSUD 

#40000, UDOT 

THA234 

END234 

#10, UDOT 

I FC234 

#4, UDOT 

ELH234 

#TRBIT,RDYUD 
UDCT.URDS 
DBADR, ADRS 
PC.OUTSUD 
#2. UDOT 
ELK234 

#DATPAT,URDS 

E1K234 

#DATBUF,URDS 
#TRB1T,RDVUD 
DBADR, ADRS 
PC.OUTSUD 
EIH234 
#4, UDOT 
I F £234 
#2, UDOT 
ELD234 

#TRBIT,RDYUD 

SECADR.URDS 

#177700, URDS 

DBADR, ADRS 

PC.OUTSUD 

TRKADR.WRDS 

#177600, URDS 

#TRBIT,RDYUD 

DBADR, ADRS 

PC.OUTSUD 

E1B234 

#TRB1T,RDYUD 
#XERUUT,URDS 
DBADR, ADRS 
PC.OUTSUD 
EIB234 
#2. UDOT 
ELE234 
#1 .ERSTAT 
E1B234 

#TRBIT,RDYUD 
VALUD.URDS 
DBADR. ADRS 


GET STATUS REG ADR 

ADD 2 TO ADR 

SAVE AS DATA ADDRESS 

READY TEST UD (PASS TO 2. 3. 4.1) 

UORD FOR OUTPUT (PASS TO 2. 3. 4.1) 

ADDRESS OF OUTPUT (PASS TO 2. 3. 4.1) 

OUTPUT FUNCTION UD (FU) DO 2. 3. 4.1) 

IF FUNCTION IS 

NOT AN ’•INITIALIZE" (FU BI T#1 4=0) 

THEN, 

IF FUNCTION IS 

"READ. WRITE. FILL. EMPTY" (FU BIT#3=0) 

AND THEN IF FUNCTION IS 
"EMPTY, FILL" (FU BIT#2=0) 

THEN SET OUTPUT READY TEST UORD (PASS TO 2.3 4.1) 
AND SET UORD FOR OUTPUT 
AND SET ADDRESS OF OUTPUT 
OUTPUT BASE ADDRESS UORD 
IF "FILL" (FU BI T#1 =0 ) 

TMFN 

SET DATA PATTERN ADR 
BX FU END IF 'K* 

SET DATA BUFFER ADR 
SET OUTPUT READY TEST UORD 
ADDRESS OF OUTPUT 
OUTPUT UORD COUNT UORD 
BRANCH TO END IF *H' 

IF FUNCTION UORD IS 

’NrfRITE D.D" OR "READ E.C" (FU BIT #2=1) 

THEN. IF FUNCTION IS 
’\rfRITE D.D". THEN (FU BIT#1=0) 

SET OUTPUT READY TEST UORD 
MOVE TRACK AND SECTOR ADDRESS 
FORMAT TO SECTOR ADDRESS 
ADDRESS OF OUTPUT 
OUTPUT SECTOR ADDRESS 
MOVE TRACK AND SECTOR ADDRESS 
FORMAT TRACK ADDRESS 
SET OUTPUT READY TEST WORD 
ADDRESS OF OUTPUT 
OUTPUT TRACK ADDRESS 
END IF H -DONE 
SET READY UD TO TR MODE 
EXT ERR. CODE TABLE ADD 
ADDRESS OF OUTPUT, RXDB 
0/P BASE ADD FOR ERR. CODE 
DONE 

IF FUNCTION IS 
"READ STATUS" (FU BIT#1=1) 

THEN-SET ERR STATUS FLAG 
DONE 

SET OUTPUT READY TEST UD 
VALIDATION UORD 
ADDRESS OF OUTPUT. RXDB 


(PASS TO 2. 3. 4.1) 
(PASS TO 2. 3. 4.1) 
DO 2. 3. 4.1 


(PASS TO 2. 3. 4.1) 

(PASS TO 2. 3. 4.1) 
(PASS TO 2. 3. 4.1) 
(PASS TO 2. 3. 4.1) 
DO 2. 3. 4.1 
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N 6 


SEO 78 


3750 

025006 

004737 

025042 


3731 

025012 

004737 

025104 


3732 

025016 

000240 



3733 

025020 

000207 



3734 





3735 

025022 

000000 



3736 

025024 

000000 



3737 

025026 

000000 



3738 

025030 

OOOMI 



3739 

025032 

000000 



3740 

025034 

000000 



3741 

025036 

000000 



3742 

025040 

000000 



3743 





3744 





3745 





3746 





3747 





3748 





3749 





3750 





3751 

025042 

000240 



3752 

025044 

013737 

025034 

025332 

3753 

025052 

013737 

025330 

025330 

3754 

025060 

004737 

025230 


3755 

025064 

033777 

025330 

177742 

3756 

025072 

001403 



3757 

025074 

013777 

025022 

177722 

3758 

025102 

000207 




3759 


JSR 

EIB234: CALL 
END234: NOP 
RTS 

URDS: 0 

ADRS: 0 

ERSTAT: 0 
VALUD: 111 
DBADR: 0 
CSADR: 0 
TRKADR: 0 
SECADR: 0 
;MOD 2.3.4 END MODULE 


PC.OUTSUD 

WATCH 

PC 


OUTPUT VALIDATION WORD 
CALL MOD U.2 -WATCH DOG 

RETURN TO MOD 2.3 


MODULE 2. 3. 4.1 OUTPUT WORD 

MODULE 2. 3. 4.1 OUTPUT ADDRESS 

MODULE 0.0 ERR STATUS READ FLAG 

EXTERNAL. VALIDATION WD (SET DENS-ASCII 

RX DATA BUFFER ADDRESS 

RX CONT/STATUS ADDRESS 

TRACK ADDRESS 

SECTOR ADDRESS 


'T') 


. SBTTL MOD 2. 3. 4.1 - OUTPUT SINGLE WORD 


OUTSWD: NOP 
MOV 
MOV 
JSR 
BIT 
BEQ 
MOV 

ED2341: RTS 
;MOD 2. 3.4.1 


CSADR, CSRADR 
RDVWD.RDYWD 
PC. DELAY 
RDYWD.aCSADR 
ED234f 
WRDS, SADRS 
PC 


SET C&S REG ADR 

OUTPUT READY WORD (PASS TO DELAY) 
DELAY FOR READY DO DELAY 
IF READY. 

THEN 

MOV WORD TO ADDRESS 
RETURN TO MOD 2.3.4 


END MODULE 
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B 7 


SEO 79 


3762 




.sbttl MOD U.2 

.3.4 - WATCH DOG 

TIMER 

77* t 




_ 



J f O J 

3764 




• 



3765 025104 

005037 

025226 


WATCH: CLR 

DNFLAG 

CLEAR DONE FLAG 

3766 025110 




SETPRI 

#PRIOO 

SET PROCESSOR PRI=0 - ALLOW INTERRUPTS 

3767 025116 

013704 

025222 


MOV 

DX ,R4 

SET DELAY MULT 

3768 025122 

013703 

025224 


BAU234: MOV 

DLY.R3 

SET DELAY 

3769 025126 

G05737 

025226 


IBU234: TST 

DNFLAG 

IF INTERRUPTS DONE FLAG 

3770 025132 

001410 



BEO 

LBU234 

IS SET, THEN 

3771 025134 

032777 

000040 

177672 

ICU234: BIT 

#DNBIT,aCSADR 

IF DONT BIT 

3772 025142 

001023 



BNE 

XU234 

IS NOT SET. THEN 

3773 025144 

012737 

010000 

002276 

MOV 

#BI T12.ERRTY 

SET IN1ERR. BUT NO DONE ERROR 

3774 025152 

000417 



BR 

XU234 

BR TO MOD 'EXIT' 

5775 025154 

005303 



LBU234: DEC 

R3 

DECREMENT DELAY COUNT 

3776 025156 

001363 



UDU234: BNE 

1BU234 

DO UNIT DELAY COUNT=0 

’777 025160 

005304 



DEC 

R4 

DECREMENT DELAY MULT 

5778 025162 

001357 



UAU234: BNE 

BAU234 

DO UNTIL DELAY MULT=0 

3779 025164 

032777 

000040 

177642 

IEU234: BIT 

#DNBIT,aCSADR 

IF DONE BIT IS 

3780 025172 

001404 



BEO 

LEU234 

SET. THEN 

3781 025174 

052737 

020000 

002276 

BIS 

#BIT13.ERRTY 

SET DONE. BUI NO INTERRUPT ERROR 

3782 025202 

000403 



BR 

XU234 

BR TO MOD ’EXIT* 

3783 025204 

052737 

040000 

002274 

LEU234: BIS 

#BIT14,ERRSY 

SET T.O. ERROR 

3784 025212 




XU234: SETPRI 

#PRI06 

SET PROCESSOR PRI=6 - NO INTERRUPTS 

3785 025220 

000207 



RTS 

PC 

RETURN TO MOD 2.3.4 

j f 00 







3787 025222 

000040 



DX: 4u 


DELAY MULT 

3788 025224 

100000 



DLY: 100000 


DELAY 

3789 025226 

000000 



DNFLAG: 0 


DONE FLAG 

3790 




;MOD U.2. 3. 4 — 

— END MODULE 


3791 







3792 

77QX 




.SBTTL MOD U.2 

.3/4 DELAY 


j( TJ 







3794 







3795 025230 

000240 



DELAY: NOP 



3796 025232 

023727 

025330 

000000 

IFAU23: CMP 

RDYWD.AO 

IF READY WORD 

3797 025240 

001430 



BEO 

XU23 

EOUALS ZERO. THEN 8R TO END IF 'A' 

3798 025242 

013704 

025324 


MOV 

RYDX.R4 

SET READY DELAY MULT 

3799 025246 

013703 

025326 


BDAU23: MOV 

RYDLY, R3 

SET READY DELAY 

3800 025252 

033777 

025330 

000052 

BDBU23: BIT 

RDYWD.aCSRADR 

IF READY 

3801 025260 

001020 



BNE 

XU23 

EQUAL TO , T' .THEN BR TO END IF 'B* 

3802 025262 

005303 



DEC 

R3 

ELSE DECREMENT DELAY 

3803 025264 

001372 



BNE 

BDBU23 

DO UNTIL R3=0 

3804 025266 

005304 



DEC 

R4 

DECREMENT DELAY MULT. 

3805 025270 

001366 



BNE 

9DAU23 

DO UNTIL R4=0 

3806 025272 

052737 

040000 

002274 

BIS 

#40000. ERRSY 

SET TIME OUT ERR 

3807 025300 

017737 

000026 

002246 

MOV 

aCSRADR.CSRUUT 

GET UUT CIS REG 

3808 025306 

062737 

000002 

025332 

ADD 

#2.CSRADR 

SET CSRADR TO DB REG 

3809 025314 

017737 

000012 

002250 

MOV 

aCSRADR.ESRUUT 

GET UUT EtS REG 

3810 025322 

toil 

000207 



XU23: RTS 

PC 

RETURN TO CALLING MOD 

3ol 1 




0 ** m m m m m m m m m 



3812 025324 

000040 



RYDX : 40 


READY MULTIPLIER 

3813 025326 

100000 



RYDLY: 100000 


READY DELAY 

3814 025330 

000000 



RDYUD: 0 


READY WORD - TEST FOR DEVICE READY 

3815 025332 

000000 



C SR ADR: 0 


C&S REG OF UNIT- WAITING fOR 

3816 




;MOD U.2. 3. 4 — 

— END MODULE — 
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SEG 80 


C 7 


EVALUATE TEST RESULTS 


TSTEV.FUNEV 

EVDVST 

TSTEV.FNEV4 

EVUTEC 

#20000, TSTEV 
E I A2A 
EVDATA 
TSTEV, TSTCK 
UPDVST 
PC 


PASS TEST FUNCTION 

CALL MOD 2.4.2 - EVALUATE DRIVE STATE 

PASS TEST FUNCTION 

CALL MOD 2.4.4 - EVAL UNIT ERR CODE 

IF DATA CK BIT 

IS SET, TmEN 

CALL MOD 2.4.1 - EVALUATE DATA 
PASS DRIVE TEST 

CALL MOD 2.4.3 UPDATE DRIVE STATISTICS 


END MODULE 



D 7 


SEO 81 
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MOD 2.4.1 - EVALUATE DATA 

3838 

3839 

3840 

3841 025412 005037 026054 

3842 025416 005037 026046 

3843 025422 012737 000001 

3844 025430 013701 002252 

3845 025434 006301 

3846 025436 162701 000001 

3847 025442 012702 034006 

3848 025446 012703 034406 

3849 025452 060102 

3850 025454 060103 

3851 025456 121213 

3852 025460 001407 

3853 025462 032737 000002 

3854 025470 001003 

3855 025472 052737 000004 

3856 025500 005037 026052 

3857 025504 162701 000001 

3858 025510 010137 026050 

3859 025514 012701 034006 

3860 025520 012702 034406 

3861 025524 063701 026052 

3862 025530 063702 026052 

3863 025534 121112 

3864 025536 001502 

3865 025540 005237 026054 

3866 025544 052737 000010 

3867 025552 042737 000004 

3868 025560 023727 026052 

3869 025566 002006 

3870 025570 005737 026052 

3871 025574 001003 

3872 025576 052737 000001 

3873 025604 023727 026054 

3874 02561? 103404 

3875 025614 032737 000020 

3876 025622 001047 

3877 025624 111137 026056 

3878 025630 111237 026060 

3879 025634 005737 026062 

3880 025640 001420 

3881 025642 005037 026062 

3882 025646 

3883 025702 

3884 025742 000240 

3885 025744 005237 026052 

3886 025750 005337 026050 

3887 025754 005737 026050 

3888 025760 003255 

3889 025762 005737 026046 

3890 025766 001413 

3891 025770 032737 000010 

3892 02S776 001007 

3893 026000 032737 000002 

3894 026006 001003 
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EVDATA: 


026062 


021452 

002276 


002276 

002276 

000002 


026046 

000012 

002204 


IFA241 : 
IF 1241 : 

ELA241: 

BDA241 : 


002276 

021452 


1FC241: 

IFD241: 

1FE241: 
IFF 241 : 
THF241: 
IFM241: 


EIM241: 

E1F241: 

EL8241: 


IFJ241: 
IFK241 : 
IFL241: 


CLR 

CLR 

MOV 

MOV 

ASL 

SUB 

MOV 

MOV 

ADD 

ADD 

CMPB 

BEQ 

BIT 

BNE 

BIS 

CLR 

SUB 

MOV 

MOV 

MOV 

ADD 

ADD 

CMPB 

BEO 

INC 

BIS 

BIC 

CMP 

BGE 

TST 

BNE 

BIS 

CMP 

BLO 

BIT 

BNE 

MOVB 

MOVB 

TST 

BEO 

CLR 

PRINTB 

PRINTS 

NOP 

INC 

DEC 

TST 

BGT 

TST 

BEQ 

BIT 

BNE 

BIT 

BNE 


DAERCT 
SEEKCK 
#1 .PTHEAD 
WDCNT.R1 
R1 

#1 ,R1 

ADATPAT.R2 
#DATBUF.R3 
R1.R2 
R1.R3 
(R2).(R3) 
ELA241 
#2.ERTSAV 
ELA241 
#4.ERRTY 
BYTNUM 
#1 ,R1 
R1.BYTCNT 
#DATPAT ,R1 
#DATBUF,R2 
BYTNUM. R1 
BYTNUM. R2 
(R1).(R2> 
ELB241 
DAERCT 
flO.ERRTY 
#4 .ERRTY 
BYTNUM. #2 
IFE241 
BYTNUM 
IFE241 
#1 .SEEKCK 
DAERCT .#1 2 
T MF 241 
#20.$UREG 
E I F 241 
(Rl).DATASB 
(R2) .DATAWS 
PTHEAD 
EIM241 
PTHEAD 


CLEAR DATA ERR COUNT 
CLEAR SEEK CK 
SET PRINT HEADER FLAG 
SAVE WORD COUNT 

SUBTRACT 2 TO GET CHECKSUM 

GET ADDRESS DATA SOURCE 

GET ADDRESS DATA BUFFER 

CAL. ADDR SOURCE CHECKSUM 

CAL. ADDR BUFFER CHECKSUM 

IF CHECK SUMS 

NOT= THEN 

IF CRC ERR 

NOT SET, THEN 

SET CHECKSUM ERR 

CLEAR BYTE NUMBER 

CAL. TOTAL BYTE COUNT-LAST TWO 

SAVE BYTE COUNT 

SET TEMP#1=DATA SOURCE BEGIN ADR 
SET TEMP#2=DATA BUFFER BEGIN ADR 
CAL CURRENT BYTE ADDR (SOURCE) 
CAL CURRENT BYTE ADDR (BUFFER) 

IF SOURCE BYTE ft BUFFER BYTE 
NOT EQUAL 

INCREMENT DATA ERR COUNT 
SET DATA ERR-ERR TYPE 
CLR CK SUM ERR-ERR TYPE 
IF BYTE #0 OR #1 
THEN 

IF BYTE #0 
THEN 

SET SEEK ERR-ERR TYPE 
IF OVER 10 DATA ERRORS 
THEN 

IF PRINT ONLY 10 DATA ERROR FLAG 
IS NOT SET. THEN 


; IF PRINT HEADER 
;0K. THEN 

;cl£ar print header 

fDMSGI. UNIT. TRACK. SECTOR 

#DMSG2, BYTNUM, <B. DAT ASB>,<B,DATAWS> 


BYTNUM 

BYTCNT 

BYTCNT 

BDA241 

SEEKCK 

END241 

flO.ERRTY 

END241 

#2,ERTSAV 

END241 


INCREMENT BYTE # 
DECREMENT BYTE COUNT 
DO UNTIL BYTE COUNT 
EQUALS 0 
IF DISK SEEK ERR 
IS SET AND 
IF DATA ERR 
NOT SET AND 
IF CRC ERR 
NOT SET 
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MOD 2.4 

.1 - EVALUATE DATA 





3895 

026010 

052737 

000001 

002276 

BIS 

#1 ,ERRT Y 

THEN SET SEEK ERR 

3896 

026016 

000240 



END241: NOP 



3897 

026020 

005037 

021452 


CLR 

ERTSAV 

CLEAR ERR TYP SAV 

3898 

026024 

012705 

034406 


MOV 

#DATBUF ,R5 

GET BEGIN OF DATA BUFFER 

3899 

026050 

012704 

000200 


MOV 

#128. ,R4 

SET WORD LENGTH OF TABLE 

3900 

026034 

005025 



BDB241: CLR 

(R5) ♦ 

CLEAR WORD IN DATA BUFFER TABLE 

3901 

026036 

005304 



DEC 

R4 

DECREMENT WORD COUNT 

3902 

026040 

005704 



TST 

R4 

DO UNTIL 

3903 

026042 

001374 



EDB241: BNE 

BDB241 

ALL TABLE WORDS IEROED 

3904 

3905 

026044 

000207 



RTS 

PC 

RETURN 







SEEK CECK FLAG 

3906 

026046 

000000 



SEEKCK: 0 


3907 

026050 

000000 



BVTCNT: 0 


BYTE COUNT 

3908 

026052 

000000 



BYTNUM: 0 


BYTE NUMBER 

3909 

026054 

000000 



DAERCT: 0 


DATA ERR COUNT 

3910 

026056 

000000 



DATASB: 0 


DATA SHOULD BE 

3911 

026060 

000000 



DATAWS: 0 


DATA WAS 

3912 

3913 

026062 

000000 



PTHEAD: 0 


PRINT HEADER FLAG 








3914 

C26064 

045 

116 

045 

DMSG1: .ASCII 

/XNXA UN1T#X01XA 

TRK#XD3XA SEC#XD2XNXA BYTE#XS2XAGOODXS6XABAD/ 

3915 

026161 

045 

116 

045 

DMSG2: .ASCII 

/3NXS3XD3XS2XB8XS2XB8/ 

3916 





.EVEN 



3917 





;M0D 2.4.1 

- END MODULE 
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F 7 


•SBTTl MOD 2.4.2 - evaluate dri 


3922 026206 

3923 026212 

3924 026220 

3925 026226 

3926 026232 

3927 026240 

3928 026242 
5929 026246 

3930 026254 

3931 026262 

3932 026266 

3933 026272 

3934 026274 

3935 026302 

3936 026306 

3937 026312 

3938 026316 

3939 026322 

3940 026326 

3941 026332 

3942 026336 

3943 026340 

3944 026346 

3945 026350 

3946 026356 

3947 026360 

3948 026364 

3949 026372 

3950 026400 

3951 026404 

3952 026412 

3953 026420 

3954 026424 

3955 026430 

3956 026432 

3957 026440 

3958 026444 

3959 026450 

3960 026452 

3961 026460 

3962 026464 
3965 026470 

3964 026474 

3965 026476 

3966 026504 

3967 026506 

3968 026514 

3969 026516 

3970 026524 

3971 026526 

3972 026534 
397* 026536 

3974 026544 

3975 026546 

3976 026552 


013705 

013737 

013737 

005037 

032737 

001032 

012715 

013737 

012737 

004737 

032715 

001005 

052737 

000137 

113701 

042701 

050137 

000137 

004737 

005737 

0C1463 

032737 

001404 

012737 

000402 

005037 

052737 

053737 

013715 

013737 

012737 

004737 

032715 

001005 

052737 

000137 

032715 

001403 

052737 

013701 

062701 

032711 

001102 

052737 

000561 

032737 

001410 

032737 

001010 

052737 

000450 

032737 

001456 

013701 

042701 


SEQ 83 


STATE 


GET COMMAND l STATUS LAST OP UUT 
GET ERROR STATUS LAST OP UUT 
CLEAR EXTENDED ERROR CODE LOCATION 
IF DONE NOT 
SET THEN 

ISSUE PROG INI T TO UUT 

SET CSR ADR 

SET DONE TEST 

WAIT FOR TR 

IF DONE NOT 

SET THEN 

SET NO DONE ON INT-SYS ERR 

BR TO END MOD 

GET DRIVE FUNCTION 

CLEAR ALL BUT FUNCTION 

SET NO DONE ON FUNCTION-SYS ERR 

BR TO END MOD 

CALL MOD 2.4.2. 1 EVALUATE DRIVE RESPONSE 

IF SYS ERR 

NOT =0 THEN 

IFDRVA1 UNDER 1ST 

THEN 

SET CMD TO DRv#1 
BR 

SET CMD TO DRVPO 

SET READ UUT ESR IN CMD 

SET DEN FOR CMD 

READ UUT ESR 

SET CSR ADR 

SET DONE BIT 

CALL 

IF DONE BIT 
NOT SET THEN 

SET NO DONE BIT (SECONDARY PROBLEM) 

8K TO END 
IF ERR BIT 
SET 

ERR BIT - ERR TYPE 
GET UUT ADR 
CAL DBR ADR 
IF DRV RDY BIT 
EQUALS 0 

SET DRIVE NOT RDV-SYS ERR 
BR TO END IF ’E' 

IF ANY ESR ERR BIT SET 
THEN 

IF UUT ERR BIT 
N0T=1 THEN 
SET MISSING ERR BIT 
BR TO IF 'L' 

IF UUT CSR ERR BIT 

EOUALS 1 THEN 

lit 7 TEST FUNCTION 

CLEAR ALL BUT TWO BOTTOM BUS 
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5977 026556 

5978 026562 

5979 026564 

5980 026572 

5981 026574 

5982 026600 
5985 026604 

5984 026610 

5985 026612 

5986 026620 

5987 026622 

5988 026626 

5989 026o52 

5990 026656 

5991 026640 

5992 026646 
5995 026650 

5994 026656 

5995 026664 

5996 026666 

5997 026674 

5998 026702 

5999 026710 

4000 026712 

4001 026720 

4002 026722 
4005 026726 

4004 026752 

4005 026754 

4006 026740 

4007 026742 

4008 026746 

4009 026750 

4010 026756 

4011 026760 

4012 026766 
4015 026770 

4014 026776 

4015 027000 

4016 027006 

4017 027014 

4018 027016 

4019 027024 

4020 027050 

4021 027052 

4022 027040 
4025 027042 

4024 027050 

4025 027056 

4026 027060 

4027 027064 

4028 

4029 027066 

4050 027070 

4051 02707? 

4052 027074 
4035 


022701 

001004 

052757 

000451 

015701 

042701 

022701 

001004 

052757 

000416 

015701 

042701 

052701 

001004 

052757 

000405 

052757 

052757 

001406 

042757 

052757 

052757 

001404 

052757 

000455 

015701 

052701 

001446 

052701 

001045 

005757 

001410 

052757 

001015 

052757 

000407 

052757 

001405 

052757 

052757 

001405 

052757 

005757 

001407 

052757 

001005 

052757 

052757 

001402 

004757 

000207 

000000 

000000 

000000 

000000 


000002 


CMP 

BNE 

004000 

002276 

BIS 

BR 

025410 


IFK242: MOV 

177770 


BIC 

000005 


CMP 

BNE 

BIS 

BR 

002000 

002276 

025410 


IFM242: MOV 

177771 


BIC 

000006 


BIT 

BNE 

001000 

002276 

BIS 

BP 

000400 

002276 

ELM242: BIS 

000001 

027074 

IFL242: BIT 
BED 

000001 

002276 

BIC 

000002 

002276 

BIS 

006010 

027074 

IFN242: BIT 
BEQ 

100000 

002274 

BIS 


025410 

000002 

000005 

002244 


IFF 242 : 


IF0242: 


000100 027074 IFP242: 

000100 002276 
000100 027074 IFQ242; 


000040 

000020 

020000 

002242 


002276 

027074 

002274 


IFR242: 


IFU242: 


000040 027074 IFV242: 


010000 

100000 

005026 


002274 

027072 


IF S242 : 


END242: 


EVCMD: 
FUNEV: 
CSREV: 
ESREV: 
;M0D 2 


#2.R1 
I F K 242 
#4000. ERRTY 
IFL242 
TSTEV.R1 
#1777?0. R1 
#5 ,R1 
IFM242 
#2000,ERRTY 
IFL242 
TSTEV.R1 
#177771, R1 
#6,R1 
ELM242 
flOOO.ERRTV 
I F L 242 
#400. ERRTY 
#1 .ESREV 
IFN242 
#1 .ERRTY 
#2 .ERRTY 
#6010. ESREV 
IFF 242 

#100000, ERRSY 

IFS242 

TSTEV.R1 

#2,R1 

IFS242 

#5.R1 

IFS242 

DELDAT 

IFQ242 

#100, ESREV 

1FR242 

#100, ERRTY 

IFR242 

#100, ESREV 

IFR242 

#40, ERRTY 
#20, ESREV 
IFU242 

#20000. ERRSY 
DEN 
IF $242 
#40, ESREV 
IFS242 

#10000, ERRSY 
#100000. CSREV 
END242 
RDERCD 
PC 


END MODULE 


SEO 84 


IF WRITE FUNCTION 
THEN 

SET WRITE ERR - ERR TYPE 
BR TO IF *1' 

GET TEST FUNCTION 
CLEAR ALL BUT function 
IF READ FUNCTION 
THEN 

SET READ ERR-ERR TYPE 
BR TO IF V 
GET TEST FUNCTION 
CLEAR BITS 

IF. fill/empty buffer 

THEN 

SET FILL/EMPTY ERR-ERR TVP 
BR TO IF 'L ' 

ELSE SET UNK ERR 
IF CRC ERR (ESR) 

THEN 

CLEAR ANY SEEK ERR 
SET CRC ERR 

IF ESR BIT#5,10.11 ARE 
SET, THEN 

SET UNKNOWN ERR-SYS ERR 
BR TO IF 'S’ 

GET TEST FUNCTION 
IF FUNCTION WAS 
POSSIBLE READ OR WRITE 
BUT REALLY 

IS READ OR WRITE, THEN 
IF DELETED DATA FLAG IS 
SET THEN 

If UUT ESR DD BIT 
NOT SET THEN 

SET MISSING DP MARK-ERR TYP 
BR TO IF ‘R* 

If D.D. BIT IS 
SET THEN 
SET UNEX DD BIT 
IF DEN. ERR. (ESR) 

THEN 

SET DEN. ERR-SYS ERR 

IF DOUBLE DEN MODE IS 

SET AND THEN 

IF. UUT RESPONDS IN 

SINGLE DENSITY. THEN 

SET DRIVE DENSITY ERR-SYS ERR 

IF UUT ERR BIT 

NOT =0 THEN 

CALL UUT - READ ERROR CODE 


; CMC WORD USED IN THIS MOD 
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.2.1 - EVALUATE DRIVE RESPONSE 


TSTEV.R1 
#177771 ,R1 
#6,R1 
6 $ 

RXXX 

IS 

#2.UUT 

2 $ 

#1000, R1 

3$ 

R1 

ESRUUT.R2 
#1 76777. R2 
R1.R2 

IS 

tlOOO.ERRSY 
#1 .UUT 

4S 

#400. R1 

5S 

R1 

ESRUUT.R2 
#17737?, R2 
R1.R2 
6S 

#400,ERRSY 

PC 


GET TEST FUNCTION 
CLEAR BITS 

IF NOT FILL/EMPTY BUFFER 

THEN 

IF RXXX 

AND 

SIDE # SELECTED 
THEN 

SET R1 TO TEST SIDE #1 SELECT 

BR TO TEST RESPONSE 

SET R1 TO TEST SIDE #0 SELECT 

GET ESR UNIT UNDER TEST 

CLEAR ALL BITS BUT SIDE SELECT 

IF SIDE SELECT 

N0T=SIDE RESPONDING THEN 

SET WRONG SIDE RESPONDING SYS ERR 

IF DRIVE #1 SELECTED 

THEN 

SET R1 TO TEST DRIVE #1 SEL 

BR TO TEST RESPONSE 

SET R1 TO TEST DRIVE #0 SEL 

GET ESR UNIT UNDER TEST 

CLEAR ALL BITS BUT DRIVE RESPONDING 


SET WRONG DRIVE RESPONDING SYS ERR 


END MODULE 
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STATISTICS 


PASS TEST FUNCTION TO UPDATE SEC CTR 

CALL UP DATE SECTOR CONTENTS 

IF ERRTY SAVE 

HAS CRC ERR BIT SET, THEN 

CALL UPDATE CRC STATISTICS 

CLEAR ERR TYPE SAVE 

BR TO IF 'G* 

SAVE ERR TYP — > ETSAV 
GET ERR T VP — > STAT ERR REG 
ZERO STAT COUNTER 
IF ERR IS 
CRC THEN 

CLEAR CRC , RD, & WRT ERR BITS OF STAT ERR REG 

CLEAR CARRY BIT 

ROTATE RIGHT STAT ERROR REG 

IF CARRY bit set, THEN 

GET STAT COUNTER 

l DOUBLE FOR WORD ADDRESSING 

CAL. CLASSIFICATION WORD-ADDRESS 

GET CLASSIFICATION WORD 

GET CLASSIFICATION WORD-TO FIND LOG OFFSET 
GET CLASSIFICATION WORD UPPER BYTE 
—SHIFT LEFT TO GET LOG REG OFFSET (LAST 6 BITS) 
—SHIFT LEFT AGAIN 
CLEAR UNWANTED BITS 
SAVE ERROR LOG OFFSET 
IF ERR TYP CLASSIFICATION WORD 
TVPE=SOFT. THEN 

CALL UPDATE SOFT ERROR STATISTICS 
BR TO END ' B* 

CALL UPDATE HARD ERROR STATISTICS 

INCREMENT STAT COUNTER 

DO UNTIL ALL 16 

BITS ARE DONE 

GET EXTENDED ERROR CODE 

CLEAR UPPER BYTE 

IF EXTENDED ERROR CODE 

N0T=0. THEN 

ADJ ERROR CODE # FOR LOGGING 

GET LOC OF ERR CODE LOG 

ADD ERR CODE TO LOC ERR CODE LOG 

FIND LOC ERR REG THIS UNIT 

INCREMENT UNIT ERR REG 

GET ERR TYPE 

CLEAR ALL ERRS BUT RD. WT. CRC. SEEK 

IF ONE OF THESE ERRORS 

THEN 

GET TRACK ADR 

DOUBLE TRACK ADR FOR WORD ADDRESSING 
ADJ TRK 
FOR ADR. 

ADD TRACK LOG LOCATION 
FIND LOC ERR REG THIS UNIT 
INCREMENT UNIT ERR REG 
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4127 027516 005737 027610 

4128 027522 001023 

4129 027524 005237 027612 

4130 027530 022737 000004 027612 

4131 027536 101017 

4132 02 7 540 012701 002306 

4 1 33 027544 012702 000011 

4134 027550 005021 

4135 027552 005302 

4136 027554 005702 

4137 027556 001374 

4138 027560 005037 027612 

4159 027564 005037 002304 

4140 027570 000402 

4141 027572 005037 027612 

4142 027576 013737 002276 027610 

4143 027604 000207 

4144 

4145 027606 000000 

4146 027610 000000 

4147 027612 000000 

4148 027614 000000 

4149 027616 000000 

4150 027620 000000 

4151 027622 000000 

4152 027624 000000 

4153 027626 000000 

4154 

4155 

4156 

4157 

4158 

4159 027630 005001 

4160 027632 006005 

4161 027634 100407 

4162 027636 012106 

4163 027640 154400 

4164 027642 113227 

4165 027644 113227 

4166 027646 154400 

4167 027650 154400 

4168 027652 101407 

4169 027654 010164 

4170 027656 011202 

4171 027660 103407 

4172 027662 104407 

4173 027664 102407 

4174 027666 154407 

4175 

4176 

4177 

4178 

4179 

4180 


J 7 


13:50 PAGE 119-1 


S£Q 87 


11243: 

TST 

ERRSAV 


BNE 

LI243 


INC 

ERSVCT 

I J 24 3 : 

CMP 

#4, ERSVCT 


BHI 

EI$43 


MOV 

#SEEKRT,R1 


MOV 

#11 ,R2 

BK243: 

CLR 

(R1 ) ♦ 


DEC 

R2 

UK243: 

TST 

R2 


BNE 

8K243 


CLR 

ERSVCT 


CLR 

RETRY 


BR 

E 1243 

L 1243: 

CLR 

ERSVCT 

E 1 24 3 : 

MOV 

ERRTY, ERRSAV 

END243: 

RTS 

PC 


ETSAV: 0 
ERRSAV: 0 
ERSVCT: 0 
STERRG: 0 
STCNTR: 0 
CLASWD: 0 
LOGOFF: 0 
RTOFF: 0 
TSTCK: 0 
;M0D 2.4.3 


END MODULE 


IF ERR SAVE HAS 
NO ERROR SET, THEN 
INCREMENT ERROR SAVE COUNTER 
IF ERROR SAVE COUNTER 
N0T=4. THEN 

SET BEGIN ADDRESS OF RETRY COUNTERS 
SET # OF RETRY COUNTERS 
CtEAR RETRY COUNTER 
DECREMENT RETRY COUNTER # 

DO UNTIL 

ALL COUNTERS CLEARED 
CLEAR ERROR SAVE COUNTER 
CLEAR RETRY COUNTER 
BR TO END ' I ' 

CLEAR ERROR SAVE COUNT 

SAVE ERROR TYPE FOR NEXT ERROR CHECK 

RETURN 


ERR TYPE SAVE 
ERR TYPE SAVE REG 

ERROR SAVE COUNTER-COUNTS # OF NO ERROR PASSES 
STAT ERR REG 
STAT COUNTER 

ERROR CLASSIFICATION WORP-FROM TABLE 
ERROR LOG OFFSET FROM fCKSML 
RETRY COUNTER OFFSET FROM # SEEKRT 
TEST WORD-USED TO CHECK TEST DONE 


ETTAB: 


ERROR TYPE CLASSIFICATION 


t OFFSETS TABLE — 
T VPE /LOG-OFF /RT-OF 


ft CLASS 
/■ 


/BIT# 
■/ 


.WORD 

005001 

SFT 

/SEEK /SEEK 

/SK-RTMSK/ 

0 

.WORD 

006005 

SFT 

/ CRC /CRC 

/CRC / 

1 

.WORD 

100407 

HRD 

/cksml / - 

/HD / 

2 

.WORD 

012106 

SFT 

/DATA /DATA 

/dt-rtmsk/ 

3 

.WORD 

154400 

HRD 

/ - / - 

/ - / 

4 

.WORD 

113227 

HRD 

/DDUNX /DD 

/HD / 

5 

.WORD 

113227 

HRD 

/DDMIS /DD 

/HD / 

6 

.WORD 

154400 

HRD 

/ - / - 

/ - / 

7 

.WORD 

154400 

HRD 

/UNK / - 

/ - / 

8 

.WORD 

101407 

HRD 

/fil-emp/ - 

/HD f 

9 

.WORD 

010164 

SFT 

/RD /RD 

/RD-RTMSK/ 

10 

.WORD 

011202 

SFT 

/WRT /WT 

/WT-RTMSK/ 

.1 

.WORD 

103407 

HRD 

/JNTR-ND/ - 

/HD / 

12 

.WORD 

104407 

HRD 

/D-NINTR/ - 

/HD / 

i; 

.WORD 

102407 

HRD 

/ER-NSET/ - 

/HD / 

14 

.WORD 

154407 

1 1 1 1 1 1 

HRD 

/ERR BIT/ - 

/HD / 

1 5 


! ! ! ! ! ! <CL ASS 1 F I C AT ION <SEEK=1/CR( 

j ; . . i <RE TRY COUNTER OFFSET 

=5/DATA=6/WRITE=2/READ-4) 


mi <LOG REGISTER OFF SET- (FROM 

CKSML ADDRESS) 


•<TYPE (SOF T=0/HARD-1 ) 



K 7 
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4183 

4184 

4185 

4186 027670 000240 

4187 027672 032737 000007 027620 

4188 027700 001007 

4189 027702 013701 027622 

4190 027706 062701 007354 

4191 027712 063701 002240 

4192 027716 005211 

4193 027720 000207 

4194 

4195 

4196 

4197 


.SBTTL MOD 2. 4. 3.1 - UPDATE HAR 


UDHDST: NOP 
IA2431: BIT 
BNE 
MOV 
ADD 
ADD 
INC 

X 24 3 1 : RTS 
;MOD 2.4. 3.1 


#7,CLASUD 
X2431 
LOGOFF. R1 

#cksml.ri 

UUTOFf ,R1 
< R 1 ) 

PC 

— END MODULE 


4198 .SBTTL MOD 2.4.3 .2 - UPDATE CRC 

4199 ; - 

4200 


4201 027722 

000240 



UDCRST : 

NOP 

#BIT13.TSTCK 

4202 027724 

032737 

020000 

027626 

IA2432: 

BIT 

4203 027732 

001425 




BEQ 

LA2432 

4204 027734 

032737 

000010 

002276 

IB2432: 

BIT 

#BI T03.ERRTY 

4205 027742 

001007 




BNE 

LB2432 

4206 027744 

012737 

000020 

027622 


MOV 

#20. LOGOFF 

4207 027752 

012737 

000006 

027624 


MOV 

#6.R10FF 

IC$432 

4208 027760 

000420 




BR 

4209 027762 

012737 

000050 

027622 

LB2432: 

MOV 

#50. LOGOFF 

4210 027770 

005037 

030474 



CLR 

RTMASK 

4211 027774 

012737 

000012 

027624 


MOV 

#12.RT0FF 

4212 030002 

004737 

030344 



CALL 

SFERLG 

4213 030006 

012737 

000010 

027622 

LA2432: 

MOV 

#10. LOGOFF 

4214 030014 

012737 

000006 

027624 


MOV 

#6.RT0FF 

4215 030022 

032737 

010000 

027626 

IC2432: 

BIT 

#BIT12,TSTCK 

4216 030030 

001407 




BEQ 

LC2432 

4217 030032 

012737 

000020 

030474 


MOV 

#BIT04, RTMASK 

4218 030040 

052757 

000002 

030474 


BIS 

#BIT1. RTMASK 
EC243$ 

4219 030046 

000406 




BR 

4220 030050 

012737 

000020 

030474 

LC2432: 

MOV 

#BIT04, RTMASK 

4221 030056 

052757 

000004 

030474 


BIS 

#B1T02, RTMASK 

4222 030064 

004737 

030344 


EC2432: 

CALL 

SFERLG 

4223 030070 

4224 

000207 



;M0D 2. 

RETURN 
4.3.2 — 

END MODULE 


SEQ 88 


ERROR STATISTICS 


IF ERROR CLASS WORD- 

CLAS$=HD(7>. THEN 

GET ERROR LOG OFFSET 

ERR LOG ADR=ERR LOG OFF ♦ CKSMl ADR 

UUT ERR LOG ADR=UUT OFFSET ♦ ERR LOG ADR 

INCREMENT THE ERROR LOG 

RETURN 


STATISTICS 


IF TEST=DATA CHECK 

BIT SET. THEN 

IF ERR TVPE=DATA ERR 

NOT SET. THEN 

SET LOG OFFSET=CRC BAD LOG 

SET RETRY OFFSET=CRC ERR 

BR TO 'C* 

SET DATA LOG OFFSET 
CLEAR RETRY MASK 

SET DUMMY DATA RETRY COUNTER OFT SET 
CALL SOFT ERROR LOGGER 
SET LOG OFFSET=CRC ERR LOG 
SET RETRY OFFSET=CRC ERR 
IF READ AFTER WRITE (RAW) 

BIT SET, THEN 
SET RETRY MASK=CRC 
SET RETRY MASK=WRITE 
BR TO END ‘C‘ 

SET RETRY MASK=CRC 
SET RETRY MASK=READ 
CALL SOFT ERROR LOGGER 
RETURN 
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SEQ 89 


3.3 - UPDATE SOFT ERROR STATISTICS 


CLASUD.R2 

R2 

R2 

R2 

#1 77700.R2 

R2.RTOFF 

CLASWD.R2 

#177776. R2 

#6.R2 

LA2433 

#BIT12.TSTCK 

LB2433 

#12 .RTMASK 

EB2433 

#14 .RTMASK 
#1 0 , R T OF F 
#50. LOGOFF 
EA2433 
R2. RTMASK 
#56. LOGOFF 
SFERLG 
PC 

— END MODULE 


PUT CLASSIFICATION WORD IN R1 
SHIFT WORD RIGHT 
3 TIMES TO GET 

RETRY COUNTER OFFSET (LAST 6 BITS) 
CLEAR TOP 10 BITS 
SET RETRY COUNTER OFFSET 
GET CLASSIFICATION WORD 
CLEAR ALL BIT ERROR CLASSIFICATION 
IF ERROR 

CLASS=DATA. THEN 
IF TEST HAS 

READ AFTER WRITE (RAW) BIT SE T . THEN 
SET DATA 8 WRITE RETRY 
BR TO END IF , B* 

SET DATA 8 READ RETRY 
SET DATA RT COUNTER OFFSET 
SET DATA LOG OFFSET 
BR TO END 'A* 

ELSE-PUT CLASS INTO RETRY MASK 

ADJ. LOG OFFSET SO THAT 'SEK' IS LOG BEGIN 

CALL SOFT ERROR LOGGER 

RETURN 
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4255 





4256 




•SBTTL MOD 2. 

4257 





4258 





4259 030216 

013701 

002234 


UPSECT: MOV 

4260 030222 

006301 



ASL 

4261 C 7 0224 

006301 



ASL 

4262 030226 

042737 

177770 

030342 

BIC 

4263 030234 

022737 

000003 

030342 

IA2434: CMP 

4264 030242 

001002 



BNE 

4265 030244 

005002 



CLR 

4266 030246 

OOG412 



BR 

4267 030250 

022737 

000002 

030342 

IB2434: CMP 

4268 030256 

001404 



BED 

4269 030260 

022737 

000006 

030342 

IC2434 : CMP 

4270 030266 

001024 



BNE 

4271 030270 

012702 

000020 


LB2434: MOV 

4272 030274 

000241 



EA2434: CLC 

4273 030276 

060102 



ADD 

4274 030300 

005262 

007314 


INC 

4275 030304 

100015 



BPL 

4276 030306 

005062 

007314 


CLR 

4277 030312 

062702 

000002 


ADD 

4278 030316 

005262 

007314 


INC 

4279 030322 

103006 



BCC 

4280 030324 

005062 

007314 


CLR 

4281 030330 

162702 

000002 


SUB 

4282 030334 

005062 

007314 


CLR 

4283 030340 

000207 



XUPSCT: RETURN 

4284 





4285 030342 

000000 



FUNTY: 0 


4286 


M 7 


SEO 90 


.3.4 - UPDATE SECTOR URITTEN/READ COUNTERS 


UUT.R1 

R1 

R1 

#1 77770.FUNTY 
#3, FUNTY 
IB2434 
R2 

EA2434 
#2, FUNTY 
182434 
#6. FUNTY 
XUPSCT 
#20. R2 

R1.R2 

READSC(R2) 

XUPSCT 

READSCCR2) 

#2.R2 

READSC (R2) 

XUPSCT 

READSCCR2) 

#2.R2 

READSCCR2) 


GET UNIT UNDER TEST 
DOUBLE FOR WORD ADDRESSING 
DOUBLE FOR 2 WORD ADDRESSING 
CLEAR ALL BUT FUNCTION 
IF FUNCTION TYPE 
IS READ. THEN 
CLEAR R2 
BR TO END ’A* 

IF FUNCTION TYPE 

IS NOT WRITE #1, THEN 

IF FUNCTION TYPE 

IS WRITE #2. THEN 

SET R2 OFFSET =WR I TE / 

CLEAR CARRY BIT 
SETUP OFFSET 

INCREMENT SECTOR COUNTER 
IF BIT#1 5 SET. THEN 
CLEAR SECTOR COUNTER 

SETUP TO INCREMENT DOUBLE PRECISION WORD 
INCREMENT DOUBLE PRECISION WORD 
IF CARRY BIT SET, THEN 
CLEAR DOUBLE PRECISION CTR 

CLEAR DOUBLE PRECISION CTR 


RETURN 


STATISTICS FUNCTION CK 



N 7 
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4289 

4290 

4291 

4292 030344 013701 027622 

4293 030350 013702 027624 

4294 030354 062702 002306 

4295 030360 032737 000004 002204 

4296 030366 001004 

4297 030370 032737 000004 002264 

4298 030376 001412 

4299 030400 021227 000012 

4300 030404 103007 

4301 030406 005212 

4302 030410 053737 030474 002304 

4303 030416 005037 002300 

4304 0M)422 000413 

4305 030424 062701 007514 

4306 030430 063701 002240 

4307 030434 005211 

4308 030436 043737 030474 002304 

4309 030444 005012 

4310 030446 005237 002300 

4311 030452 013701 027622 

4312 030456 062701 007424 

4313 030462 06^701 002240 

4314 030466 005211 

4315 030470 000240 

4316 030472 000207 

4317 

4318 030474 000000 

4319 


.SBTTl - MOD 2.4.U.1 - SOFT 


SFERLC-: MOV 

LOGOFF ,R1 

MOV 

RTOFF ,R2 

ADD 

#SEEKRT.R2 

IA24U1: BIT 

#BIT02,SWREG 

BNE 

IB24U1 

BIT 

#EVL .FLGDRS 

BEQ 

LB24U1 

IB24U1: CMP 

(R2),#12 

BHIS 

LB24U1 

INC 

<R2) 

BIS 

RTMASK. RETRY 

CLR 

HARDER 

BR 

EB24U1 

LB24U1: ADD 

«HSEK.R1 

ADD 

UUT0FF.R1 

INC 

< R 1 ) 

BIC 

RTMASK. RETRY 

CLR 

(R2) 

INC 

HARDER 

EB24U1: MOV 

LOGOFF .R1 
#SEK.R1 

ADD 

ADD 

UUTOFF ,Rl 

INC 

(R1) 

X24U1 : NOP 


RTS 

PC 

RTMASK: 0 
;MOD 2.4.U1 — 

— END MODULE 


SEQ 91 


ERROR LOGGER 


GET ERR LOG OFFSET 
GET RETRY COUNTER OFFSET 
uAL. RETRY COUNTER ADR 

IF (SFT SW REG) RETRY ON ERROR, LOG SOFT OR HD ERROR 
SET OR 

DRS “EVL M FLAG 
SET. THEN 
IF RETRY COUNTER 
EQUALS < 10 ERRORS, THEN 
INCREMENT RETRY COUNTER 
SET RT FLAGS PER RT MASK 
CLEAR HARD ERROR 
BR TO END 'B' 

HD ERR LOG ADR=HARD SEEK ADR+LOG OFFSET 

UUT ERR LOG ADR=UUT OFFSEULOG ADR 

INCREMENT UUT HARD ERROR LOG 

CLEAR RETRY FALGS USING RT MASK 

CLEAR RETRY COUNTER 

SET HARD ERROR FLAG 

GET ERR LOG OFFSET 

ERR LOG ADR=SEK LOG ADR*LOG OFFSET 

UUT ERR LOG ADR=UUT OFFSET+LOG ADR 

INCREMENT UUT ERROR LOG 

RETURN 


RETRY MASK 




SEQ 92 


JIT ERROR CODE 


GET ERR CODE 6 SAVE 
CLEAR TOP BYTE 
IF ERRCODE 
N0T=0, THEN 

SHIFT ERR CODE FOR LOOK UP 
AND ADDRESSING 

CAL ERR TABLE CLASSIFICATION ADR 

GET ERR CODE CLASSIFICATION WORD 

IF LOWER BYTE 

EQUALS 0. THEN 

SET ERR ONTO ERRSY 

OR TO END IF ’B 1 

IF LOW BYTE 

EQUALS 300. THEN 

IF FUNCTION WAS 

A READ. THEN 

SET READ ERR 

BR TO END IF *B* 

IF FUNCTION WAS 
A WRITE, THEN 
SET WRITE ERROR 
BR TO END IT *8' 

SET UNK ERROR 
BR TO END IF '8* 

SET CLASSIFIED ERROR ONTO ERRTV 
RETURN 


FUNCTION FOR EVALUATION 


ERR CODE # 00 > NOT USED (NO ERROR) 

ERR CODE # 10 > SEEK 

ERR CODE # 20 > SEEK 

ERR CODE # 30 > NOT ASSIGNED 

ERR CODE » 40 — > SYS ERR 

ERR CODE # 50 > SEEK 

ERR CODE # 60 > SELF DIAG ERR 

ERR CODE # 70 — > READ OR WRITE ERR 

ERR CODE f 100 — > SYS ERR 

ERR CODE # 110 > READ OR WRITE ERR 

ERR CODE # 120 > READ OR WRITE ERR 

ERR CODE # 130 > READ OR WRITE ERR 

ERR CODE # 140 — > CRC ERR 
ERR CODE # 150 — > SEEK ERR 

ERR CODE # 160 > READ OR WRITE ERR 

ERR CODE # 170 > READ OR WRITE ERR 

ERR CODE # 200 — > CRC ERR 

ERR CODE * 210 — > NOT ASSIGNED 

ERR CODE # 220 — > SELF DIAG ERR 

ERR CODE # 230 > SYS ERR 

tRR CODE » 240 > DENSITY ERR 

ERR CODE » 250 — > DENSITY ERR 

ERR CODE » 260 > NOT ASSIGNED 
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MOD 2.5 

4380 

4381 

- OUTPUT ERROR 

TYPE 


.SBTTL 

MOD 2.5 

- OUTPUT ERROR TYPE 









4382 

030702 

013737 

002276 

002604 

OTERTP: 

MOV 

errty.errreg 

SET ERROR TYPE FOR PRINT OUT 

4383 

030710 

013701 

002276 



MOV 

ERRT Y ,R1 

GET ERROR TYPE 

4384 

030714 

005002 




CLR 

R2 

CLEAR ERROR # COUNT 

4385 

030716 

000240 



BDA25: 

NOP 



4386 

030720 

032701 

000001 


IFA25: 

BIT 

#1 ,R1 

IF BIT #1 

4387 

030724 

001405 




BEQ 

ELA25 

EQUALS 1, THEN 

4388 

030726 

010204 




MOV 

R2.R4 

SAVE ERROR # COUNT 

4389 

030730 

006304 




ASL 

R4 

DOUBLE ERR # COUNT FOR ADDRESSING 

4390 

030732 

062704 

031616 



ADD 

#E T 1 ,R4 

SET ADDR FOR ERR MSG PRINT 

4391 

030736 

000407 




BR 

THA25 

BR TO THEN *A' 

4392 

030740 

000241 



ELA25: 

CL C 


CLEAR CARRY BIT 

4393 

030742 

006201 




ASR 

R1 

SHIFT ERR TYPE RIGHT 

4394 

030744 

005202 




INC 

R2 

INCREMENT ERROR # COUNT 

4395 

030746 

022702 

000017 



CMP 

#1 7.R2 

DC UNTIL ERROR # COUNT 

4396 

030752 

001361 




BNE 

BDA25 

EQUALS 15. THEN 

4397 

030754 

000507 




BR 

EIA25 

BR TO END IF ’A’ 

4398 

030756 

005003 



THA25: 

CLR 

R3 

CLEAR R3 

4399 

030760 

010205 




MOV 

R2.R5 

GET ERR# 

4400 

030762 

062705 

031656 



ADD 

#ETCLA$.R5 

CAL. ERR# CLASSIFICATION ADR 

4401 

030766 

111503 




MOVB 

(R5).R3 

GET ERR# CLASSIFICATION 

4402 

030770 

032703 

000001 


IFB25: 

BIT 

#1.R3 

IF SOFT ERR 

4403 

030774 

001415 




BEQ 

IFC25 

CLASS, THEN 

4404 

030776 

005737 

002300 



TST 

HARDER 

IF HARD ERR 

4405 

031002 

001015 




BNE 

ELB25 

NOT SET. THEN 

4406 

031004 

010237 

002376 



MOV 

R2.ERRNBR 

SET ERR # 

4407 

031010 

011437 

002400 



MOV 

(R4) .ERRMSG 

SET ERR MSG 

4408 

031014 

012737 

000003 

002374 


MOV 

#soft,errtyp 

SET ERRTYP=SOFT 

4409 

031022 

004737 

002354 



CALL 

ERROR 

CALL ERROR 

4410 

031026 

000437 




BR 

EIC25 


441 1 

031030 

032703 

000002 


IFC25: 

BIT 

#2.R3 

IF HARD ERR 

4412 

031034 

00H34 




BEQ 

EIC25 

CLASS. THEN 

4413 

031036 

052702 

000040 


ELB25: 

BIS 

#40, R 2 

SET HARD ERROR # 

4414 

031042 

010237 

002376 



MOV 

R2.ERRNBR 

SET ERR # 

4415 

031046 

011437 

002400 



MOV 

(R4), ERRMSG 

SET ERR MSG 

4416 

031052 

012737 

000002 

002374 


MOV 

fHARD.ERRTYP 

PRESET ERRTYP=HARP ERR 

4417 

031060 

032737 

000004 

002264 

IFF25: 

BIT 

#EVL.FIGDRS 

IF DRS "EVL" FLAG 

4418 

031066 

001413 




BEQ 

Elf 2$ 

IS SET, THEN 

4419 

031070 

005237 

002302 



INC 

HDERCT 

INCREMENT HARD ERROR CTR 

4420 

031074 

023737 

002302 

002216 

IFE25: 

CMP 

HDERCT.DFTL 

IF DEVICE FATAL THRESHOLD 

4421 

031102 

101005 




BH1 

EIF25 

REACHED, THEN 

4422 

031104 

012737 

000001 

002374 


MOV 

#dvft,errtyp 

RESET ERRTYP=DEVICE FATAL 

442? 

031112 

005037 

002302 



CLR 

HDERCT 

CLEAR HARD ERROR CTR 

4424 

031116 

004737 

002354 


EIF25: 

CALL 

ERROR 

CALL ERROR 

4425 

031122 

005237 

002300 



INC 

HARDER 

SET HARD ERROR FLAG 

4426 

031126 

013737 

002276 

002604 

EIC25: 

MOV 

ERRTY.ERRREG 

SET ERR TYPE FOR PRINT OUT 

4427 

031134 

004737 

002404 



CALL 

PRTERR 

CALL U.P.ERR - PRINT ERR INFO 

4428 

031140 

013737 

002276 

021452 


MOV 

ERRTY.ERTSAV 

SAVE ERR TYP FOR DATA CK 

4429 

031146 

005037 

002276 



CLR 

ERRTY 

CLEAR DEVICE ERR 

4430 

031152 

004737 

003034 



CALL 

XERPRT 

CALL MOD U.PRT.B - PRINT ERR CODE 

4451 

031156 

005737 

002300 


IFD25: 

TST 

HARDER 

IF NOT A 

4432 

031162 

001002 




BNE 

ELD25 

HARDER, THEN 

443? 

031164 

004737 

031676 



CALL 

PTRTY 

CALL 2.5.1 - PRINT RETRY # 

4434 

031170 

005037 

002300 


ELD25: 

CLR 

HARDER 

CLEAR HARD ERROR FLAG 

4435 

4«. 

031174 

000207 



E1A25: 

RTS 

PC 

RETURN 
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TYPE 











LLX7 














4438 

031176 

040 

123 

105 

£rti 

.ASCIZ 

/ SEEK ERR/ 







4439 

031210 

040 

103 

1 22 

ERT2 

.ASCIZ 

/ CRC ERR/ 







4440 

031221 

040 

103 

113 

ERT3 

.ASCIZ 

/ CK SUM ERR/ 







4441 

031235 

040 

104 

101 

ERT4 

.ASCIZ 

/ DATA ERR/ 







4442 

031247 

040 

125 

116 

ERT5 

.ASCIZ 

/ UNASSG ERR/ 







4443 

031263 

040 

104 

105 

ERT6 

.ASCIZ 

/ DEL. DATA UNEXPECTED ERR/ 





4444 

031315 

040 

104 

105 

ERT7 

.ASCIZ 

/ DEL. DATA MISSING ERR/ 





4445 

031344 

040 

125 

116 

ERT8 

.ASCIZ 

/ UNASSG ERR/ 







4446 

031360 

040 

125 

116 

ERT9 

.ASCIZ 

/ UNK ERR/ 







4447 

031371 

040 

106 

111 

ERT10: .ASCJZ 

/ FILL OR EMPTY 

BUFFER ERR/ 





4448 

031423 

040 

122 

105 

ERT11 : .ASCI Z 

/ READ ERR/ 







4449 

031435 

040 

127 

122 

ERT12: .ASCIZ 

/ WRITE ERR/ 







4450 

031450 

040 

111 

116 

ERT13: .ASCIZ 

/ interrupt BUT 

NO DONE BIT ERR/ 





4451 

031507 

040 

104 

1 7 

ERT14: .ASCIZ 

/ DONE BIT BUT 

MO INTERRUPT ERR/ 





4452 

031546 

040 

105 

1 12 

ERT15: .ASCIZ 

/ ERROR. BUT NO 

ERR BIT SET/ 





4453 

031601 

040 

105 

122 

ERT16: .ASCIZ 

/ ERR BIT SET/ 







4454 






.EVEN 








4455 

031616 

031176 



E T 1 : 

.WORD 

ERT1 







4456 

031620 

031210 




.WORD 

ERT2 







4457 

031622 

031221 




.WORD 

ERT3 







4458 

031624 

031235 




.WORD 

ERT4 







4459 

031626 

031247 




.WORD 

ERT5 







4460 

031630 

031263 




.WORD 

ERT6 







4461 

031632 

031315 




.WORD 

ERT7 







4462 

031634 

031344 




.WORD 

ERT8 







4463 

031636 

031360 




.WORD 

ERT9 







4464 

031640 

031371 




.WORD 

ERT10 







4465 

031642 

031423 




.WORD 

ERT11 







4466 

031644 

031435 




.WORD 

ERT12 







4467 

031646 

031450 




.WORD 

ERT13 







4468 

031650 

031507 




.WORD 

ERT14 







4469 

031652 

031546 




.WORD 

ERT15 







4,470 

031654 

031601 




.WORD 

ERT16 


* * 



















4472 









ERROR 

- 

TYPE 

- 

ERR# 

4473 










-« 




4474 

031656 

001 



ETCLAS: .BYTE 

1 


SEEK 

- 

SOFT 

- 

0 -32 

4475 

031657 

001 




.BYTE 

1 


CRC 

• 

SOFT 


1 -33 

4476 

031660 

002 




.BYTE 

2 


CKSUH 

- 

HARD 

- 

-34 

4477 

031661 

001 




.BYTE 

1 


DATA 

- 

SOFT 

• 

3 -35 

4478 

031662 

000 




.BYTE 

0 


UNASSIGNED 

- 




44 79 

031663 

002 




.BYTE 

2 


DEL. DATA UNEX 

- 

HARD 

- 

-37 

4480 

031664 

002 




.BYTE 

2 


DEL. DATA MISSING 

- 

HARD 

- 

-38 

4481 

031665 

000 




.BYTE 

0 


UNASSIGNED 

- 




4482 

031666 

002 




.BYTE 

2 


UNK ERR 

- 

HARD 

- 

-40 

4483 

031667 

002 




• BYTE 

2 


FILL/EMPTY BUFFER 

- 

HARD 

- 

-41 

4484 

031670 

001 




• BYTE 

1 


READ 

- 

SOFT 

- 

10-42 

4485 

031671 

001 




.BYTE 

1 


WRITE 

- 

SOFT 

- 

11-43 

4486 

031672 

002 




.BYTE 

2 


INTER-BUT NO DONE 

- 

HARD 

• 

-44 

4487 

031673 

002 




.BYTE 

2 


DONE-BUT NO INTER 

m 

HARD 

- 

-45 

4488 

031674 

002 




.BYTE 

2 


ERR-BUT NO ERR BIT 

m 

HARD 

- 

-4»6 

4489 

031675 

002 




.BYTE 

2 


ERR BIT SET 

- 

HARD 

- 

-47 

4490 

4491 





;MOD 

.EVEN 
2.5 

END MODULE 









E 8 
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MOD 2.5 

- OUTPUT ERROR 

TYPE 






4494 









4495 

4496 





.SBTTL MOD 2.5 

.1 - PRINT RETRY 











4497 









4498 

031676 

000240 



PTRTY: NOP 




4499 

031700 

005737 

002304 


IFA251: TST 

RETRY 

IF RETRY 


4500 

031704 

001500 



BEG 

END251 

NOT=0, THEN 

IF RETRY 


4501 

031706 

032737 

000001 

002304 

IFB251: BIT 

#1 .RETRY 


4502 

031714 

001405 



BEQ 

IFC251 

IS SEEK. THEN 


4503 

031716 

013702 

002306 


MOV 

SEEKRT.R2 

SET SEEK RT COUNT 


4504 

031722 

012701 

032110 


MOV 

#MSKRT,R1 

SET SEEK RT MSG 


4505 

031726 

000465 



BR 

EIB251 

BR TO END IF 'B' 


4506 

031730 

032737 

000002 

002304 

IFC251: BIT 

#2. RETRY 

I F ^ 25 1 

IF RETRY 


4507 

031736 

001427 



BEQ 

IS WRT, THEN 

IF RETRY 


4508 

031740 

032737 

000030 

002304 

IFD251: BIT 

#30. RETRY 

ELD251 


4509 

031746 

001416 



BEQ 

IS DATA OR CRC . THEN 


4510 

031750 

032737 

000010 

002304 

IFG251: BIT 

#10. RETRY 

elg5si 

IF RETRY 


4511 

031756 

001405 



BEQ 

IS DATA, THEN 


4512 

031760 

013702 

002316 


MOV 

DATART.R2 

SET DATA RT COUNT 


4513 

031 764 

012701 

032134 


MOV 

#MDWTRT ,R1 

SET DATA WRT MSG 


4514 

031770 

000444 



BR 

EIB251 

BR TO END IF ’S’ 


4515 

031772 

013702 

002314 


ELG251: MOV 

CRCERT.R2 

SET CRC RETRY COUNT 


4516 

031776 

012701 

032270 


MOV 

#MCUTRT ,R1 

SET CRC WRT MSG 


4517 

032002 

000437 


BR 

EIB251 

BR TO END IF ‘B* 


4518 

032004 

013702 

002326 


ELD251; MOV 

WRTRT.R2 

SET WRT RT COUNT 


4519 

032010 

012701 

032166 


MOV 

#MWTRT.R1 

SET WRT RT MSG 


4520 

032014 

000432 



BR 

EIB251 

BR TO END IF ’B* 


4521 

032016 

032737 

000004 

002304 

IFE251: BIT 

#4. RETRY 

IF RETRY 


4522 

032024 

001430 



BEQ 

END251 

IS READ, THEN 


4523 

032026 

032737 

000030 

002304 

IFF251: BIT 

#30. RE TRY 

ELF251 

IF RETRY 


4524 

032034 

001416 



BEQ 

IS DATA OR CRC, THEN 


4525 

032036 

032737 

000010 

002304 

IFH251: BIT 

#io.retry 

elm251 

IF RETRY 


4526 

032044 

001405 



BEQ 

IS DATA, THEN 


4527 

032046 

013702 

002316 


MOV 

DATART.R2 

SET DATA RT COUNT 


4528 

032052 

012701 

032213 


MOV 

#HDRDRT,R1 

SET DATA READ RT MSG 


< 4529 

< 4530 

032056 

000411 



BR 

EIB251 

BR TO END IF 'S’ 


032060 

013702 

002314 


ELH251: MOV 

CRCERT.R2 

SET CRC RETRY COUNT 


4531 

032064 

012701 

032321 


MOV 

#HCRDRT,R1 

SET CRC READ MSG 


4532 

032070 

000404 



BR 

EIB251 

BR TO END IF 'S’ 


4533 

032072 

013702 

002324 


ELF 251 : MOV 

READRT.R2 

SET READ RT COUNT 


4534 

032076 

012701 

032244 


MOV 

#MRDRT,R1 

SET READ RT MSG 


4535 

032102 

004737 

004536 


EIB251 : CALL 

PRTB1S 

PRINT RETRY # ft TYPE 


4536 

4537 

032106 

000207 



END251: RTS 

PC 

RETURN 










4538 

032110 

045 

101 

040 

MSKRT : .ASCI Z 

/XA SEEK RETRY#XD2XN/ 


4539 

032134 

045 

101 

040 

MDUTRT : .ASCI Z 

/XA DATA WRITE RETRY#XD2XN/ 


4540 

032166 

045 

101 

040 

MWTRT : .ASCIZ 

/XA WRITE RETRY#XD2XN/ 


4541 

032213 

045 

101 

040 

MDRDRT: .ASCIZ 

/XA DATA READ RETRY#XD2XN/ 


4542 

032244 

045 

101 

040 

MRDRT: .ASCIZ 

/XA READ RETRY#XD2XN/ 


4543 

032270 

045 

101 

040 

MCWTRT: .ASCIZ 

/XA CRC WRITE RETRY#XD2XN/ 


4544 

032321 

045 

101 

040 

MCRDRT : .ASCIZ 

/XA CRC READ RETRY#XD2XN/ 


4545 

4546 





.EVEN 

:MOD 2.5.1 

- END MODULE 
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MOD 2.6 - SET DRIVES DONE 


4549 




.SBTTL 

mod ; 

4550 






4551 






4552 032352 

000240 



STDVDN: 

NOP 

4553 032354 

005737 

0214*2 


IFA26: 

TST 

4554 032360 

001430 




BEQ 

4555 032362 

000240 




NOP 

4556 032364 

005037 

021442 



CLR 

4557 032370 

032737 

000001 

002234 

IF826: 

BIT 

4558 032576 

001404 




BEQ 

4559 032400 

052737 

000002 

021432 


BIS 

4560 032406 

000403 




BR 

4 56 T 032410 

052737 

000001 

021432 

ELB26: 

BIS 

4562 032416 

005001 



EIB26: 

CLR 

4563 052420 

013703 

002234 



MOV 

4564 032424 

000261 




SEC 

4565 032426 

006101 



BDA26: 

ROL 

4566 052430 

005303 




DEC 

4567 032432 

005703 




TST 

4568 032434 

002374 



DUA26: 

BGE 

4569 032436 

050137 

021444 



BIS 

4570 032442 

000207 



END26: 

RTS 

4571 




;MOD 2. 

6 ---■ 


F 8 


SEO 96 


.6 - SET DRIVES DONE 


DVDNCK 

END26 

DVDNCK 
#1 ,UUT 
ELB26 
#2,BTHDRV 
E1B26 
#1 .bthdrv 

R1 

UUT.R3 

RT 


BDA26 
RT .DRVDN 
PC 

END MODULE 


IF DRV DONE CK 
IS SET, THEN 

CcEAR DRV DONE CK 
IF DRV#1 DONE 
THEN 

SET DRV#1 DONE FLAG 
BR TO END 

SET DRVfO DONE FLAG 
CLEAR TEMP DRV DONE REG 
GET UNIT UNDER TEST 
SET CARRY BIT 
MOVE DRV BIT 

DECREMENT UNIT UNDER TEST 
DO UNTIL UNIT UNDER tst 
EQUALS -1 

THEN SET THIS DRV DONE 
RETURN 



G 8 


SEO 97 


HARDWARE tests 
MOD 5.0 - OUTPUT 

4574 , 

4575 

4576 032444 

4577 032446 

4578 032454 

4579 032456 

4580 032464 

4581 
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EXERCISE COMPLETE 


.SBTTl MOD 3.0 - OUTPUT EXERCISE COMPLETE 


000240 



OTEXCM: NOP 



023737 

002232 

002230 

CMP 

SUT.SDD 

; IF ALL SCHEDULED 

001003 



BNE 

END30 

.-DRIVE DONE 

012737 

000001 

014020 

MOV 

#1 .EXCMP 

; SET EXERCISE COMPLETE 

000207 



END30: RTS 

PC 

; RE TURN 




;MOD 3.0 

- END MODULE — • 
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MOD 4.0 - OUTPUT SYSTEM ERROR 


4584 




.SBTTL 

MOD < 

4585 






4586 032466 

013701 

002274 


OTSYER: 

MOV 

4587 032472 

000241 




CLC 

4588 032474 

006201 




ASR 

4589 03*476 

000241 




CLC 

4590 032500 

006201 




ASR 

4591 032502 

006201 




ASR 

4592 032504 

005002 




CLR 

4593 032506 

000240 



BDA40: 

NOP 

4594 032510 

032701 

000001 


IFA40: 

BIT 

4595 032514 

001405 




BEQ 

4596 032516 

010204 




MOV 

4597 032520 

006304 




ASL 

4598 032522 

062704 

035416 



ADD 

4599 032526 

000406 




BR 

4600 032530 

006201 



ELA40: 

ASR 

4601 032532 

005202 




INC 

4602 032534 

022702 

000017 



CMP 

4603 032540 

001362 




BNE 

4604 032542 

000452 




BR 

4605 032544 

010205 



THA40: 

MOV 

4606 032546 

062705 

033450 



ADD 

4607 032552 

111503 




MOVB 

4608 032554 

032703 

000002 


IFB40: 

BIT 

4609 032560 

001415 




3EQ 

4610 032562 

010205 




MOV 

4611 032564 

052705 

000100 



BIS 

4612 032570 

010537 

002376 



MOV 

4613 032574 

011437 

002400 



MOV 

4614 032600 

012737 

C00001 

002374 


MOV 

4615 032606 

004737 

002354 



call 

4616 032612 

000417 




BR 

4617 032614 

032703 

000004 


IFC40: 

BIT 

4618 032620 

001414 




BEQ 

4619 032622 

010205 




MOV 

4620 032624 

052705 

000200 



BIS 

4621 032630 

010537 

002376 



MOV 

4622 032634 

011437 

002400 



MOV 

4623 032640 

012737 

000000 

002374 


MOV 

4624 032646 

004737 

002354 



CALL 

4625 032652 

013737 

002274 

002604 

t I C40: 

MOV 

4626 032660 

004737 

002404 



CALL 

4627 032664 

004737 

003034 



CALL 

4628 032670 

000240 



EIA40: 

NOP 

4629 032672 

005037 

002274 



CLR 

4630 032676 

000207 



END40: 

RTS 


4631 


H 8 


SEO 98 


0 - OUTPUT SYSTEM ERROR 


ERRSY ,R1 

R1 

R1 

R1 

R2 

#1 ,R1 
ELA40 
R2.R4 
R4 

#SE1.R4 

THA40 

R1 

R2 

#17. R2 
BDA40 
EIA40 
R2.R5 

#ESCLAS.R5 

(R5).R3 

#2,R3 

IFC40 

R2.R5 

#100. R5 

R5.ERRNBR 

(R4) .ERRMSG 

#DVF T.ERRTYP 

ERROR 

EIC40 

#4.R3 

EIC40 

R2.R5 

#260, R5 

R5.ERRNBR 

(R4>, ERRMSG 

#SYF T.ERRTYP 

ERROR 

ERRSY. ERRREG 

PRTERR 

XERPRT 

ERRSY 

PC 


GET SYSTEM ERR 
CLEAR CARRY BIT 
SHIFT 

FUNCTION 

OUT 

CLEAR ERR # COUNT 

IF BIT #1 

EQUALS 1. THEN 

SAVE ERROR # COUNT 

DOUBLE ERR # COUNT FOR ADDRESSING 

SET ADDR FOR ERR MSG PRINT 

BR TO THEN *A* 

SHIFT ERR TYPE RIGHT 
INCREMENT ERROR # COUNT 
DO UNTIL ERR # COUNT 
EQUALS 15. THEN 
BR TO END IF *A' 

GET ERR# 

CAL. ERR# CLASSIFICATION ADR 
GET ERR# CLASSIFICATION 
IF DEVICE FATAL 
ERROR. THEN 
GET ERR# 

SET ERR CLASS=SVS 
SET ERR# 

SET ERR MSG 

SET DEVICE FATAL ERROR 
CALL ERROR 
BR TO END IF ’C* 

IF SYSTEM FATAL 
ERROR. THEN 
GET ERR# 

SET ERR CLASS=SYS 
SET ERR# 

SET ERR MSG 

SET ERR TYP^SYS FATAL 

CALL ERROR 

SET SYS ERR FOR PRINT OUT 

CALL U.P.ERR - PRINT ERR INFO 

CALL MOD U.PRT.B - PRINT ERROR CODE 

CLEAR SYS ERRORS 
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MOD 4.0 - OUTPUT SYSTEM ERROR 


4634 






4635 






4656 032700 

040 

116 

117 

SYSE4: 

.ASCIZ 

4637 032733 

040 

116 

117 

SYSE5: 

.ASCIZ 

4638 032764 

040 

1 16 

117 

SYSE6: 

.ASCIZ 

4639 033010 

040 

116 

117 

SYSE7: 

.ASCIZ 

4640 033033 

040 

116 

117 

SYSE8: 

.ASCIZ 

4641 033072 

040 

127 

122 

SYSE9: 

.ASCIZ 

4642 033122 

040 

127 

122 

SYSE10 

.ASCIZ 

46'- 3 033151 

040 

125 

116 

SYSE11 

.ASCIZ 

4644 033161 

040 

125 

116 

SYSE12 

.ASCIZ 

4645 033171 

040 

104 

111 

SYSE 1 3 

•ASCIZ 

4646 033225 

040 

104 

105 

SYSEK 

.ASCIZ 

4647 033242 

040 

124 

111 

SYSE 1 5 

.ASCIZ 

4648 033302 

040 

125 

116 

SYSE 16 

.ASCIZ 

4649 033335 

045 

116 

045 

FUNCT: 

.ASCIZ 

4650 033363 

045 

116 

045 

ERRORS 

.ASCIZ 

4651 





.EVEN 

4652 033416 

032700 



SE 1 : 

.WORD 

4653 033420 

032733 




.WORD 

4654 033422 

032764 




.WORD 

4655 033424 

033010 




.WORD 

4656 033426 

033033 




.WORD 

4657 033430 

033072 




.WORD 

4658 033432 

033122 




.WORD 

4659 033434 

033151 




.WORD 

4660 033436 

03^61 




.WORD 

4661 053440 

0331 71 




.WORD 

4662 033442 

033225 




• WORD 

4663 033444 

033242 




.WORD 

4664 033446 

033302 




.WORD 

4665 




• 



4666 

4667 

4668 033450 

004 

ESCLAS: .BYTE 

4669 033451 

002 

.BYTE 

4670 033452 

002 

• BYTE 

4671 033453 

002 

.BYTE 

4672 033454 

004 

.BYTE 

4673 033455 

004 

.BYTE 

4674 033456 

000 

.BYTE 

4675 033457 

000 

.BYTE 

4676 033460 

002 

.BYTE 

4677 033461 

002 

.BYTE 

4678 033462 

004 

• BYTE 

4679 033463 

004 

.BYTE 

4680 033464 

004 

• BYTE 

4681 


.EVEN 

468? 


;MOD 4.0 


1 8 


SEQ 99 


/ NO DONE BIT ON INITIALIZE/ 

/ NO DONE BIT ON FUNCTION/ 

/ NO DRIVE READY BIT/ 

/ NO SIDE READY BIT/ 

/ NO DONE BIT AFTER READ STATUS/ 

/ WRONG DRIVE RESPONDING/ 

/ WRONG SIDE RESPONDING/ 

/ UNUSED/ 

/ UNUSED/ 

/ DISKETTE WRONG DENSITY ERR/ 

/ DENSITY ERR/ 

/ TIME OUT OU ”TR" OR "DONE" BIT/ 
/ UNCLASSIFIED SYSTEM ERROR/ 
/XNXAFUNCT ION CODE : X03/ 
/XNXASYSTEM ERROR REG=XBXN/ 

SYSE4 

SYSE5 

SYSE6 

SYSE7 

SYSE8 

SYSE9 

SYSE10 

SYSE1T 

SYSE12 

SYSE13 

SYSEK 

SYSE15 

SYSE16 



ERROR 


CLASS 

-ERR* 

4 

NO DONE ON INI T 

• 

SYS 

FATAL 

• 

128 

2 

NO DONE ON FUNCliUN 

- 

DEV 

FATAL 

• 

65 

2 

NO DRIVE RDY 

- 

DEV 

FATAL 

- 

66 

2 

NO SIDE RDY 

- 

DEV 

FATAL 

- 

67 

4 

NO DONE AFTER RD S T A 

- 

DEV 

FATAL 

- 

68 

4 

WRG DRV RESPOND 

• 

SYS 

FATAL 

- 

133 

0 

WRG SIDE RESPOND 

- 

SYS 

FATAL 

- 

134 

0 

UNUSED 

- 

0 




2 

UNUSED 

- 

0 




2 

DISKETT WRG DEN 

- 

DEV 

FATAL 

- 

73 

4 

density err 

• 

DEV 

FATAL 

- 

74 

4 

T.O. ON "TR" OR "DONE" 


SYS 

fatal 

- 

139 

4 

SYS ERR 

- 

SYS 

fatal 

- 

140 


MODULE 



J 8 
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MOD INTR.1 - INTERRUPT HANDLER #0 


SEO 100 


4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4700 

4701 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4715 

4716 

4717 

4718 

4719 

4720 

4721 

4722 

4723 

4724 

4727 

4728 

4729 
473C 
4731 
4734 

4737 

4738 


. SBTTl 


MOD INTR.1 - INTERRUPT HANDLER #0 


033466 

033474 

033500 


013737 

004737 

000002 


002220 

033516 


033542 INTHO 


MOV 
CALL 
RTI 

;MOD U. INTR.1 
.SBTTL - 


UOADR , 1NCSAD 
SVUTRG 


END MODULE 


SET UNIT #0 ADDRESS 

CALL MOD U.INTR.U - SAVE UNIT REG 


MOD INTR.2 - INTERRUPT HANDLER #1 


033502 

033510 

033514 

013737 

004737 

000002 

002222 

033516 

033542 

I NTH 1 : MOV 
CALL 
RTI 

;MOD U. INTR.2 

.SBTTL MOD U. 

U1ADR.1NCSAD 

SVUTRG 

SET UNIT 
CALL MOD 

A1 ADDRESS 

U.INTR.U - SAVE UNIT REG 

• “u huuulc • 

INTR.U - SAVE UNIT 

REG 


033516 

012737 

000001 

025226 

SVUTRG: MOV 

#1 ,DNFLAG 

SET DONE 

FLAG 

033524 

013701 

033542 


MOV 

INCSAD.R1 

SAVE uur 

ADDRESS 

033530 

012137 

002246 


MOV 

( R 1 ) ♦ .CSRUUT 

SAVE U'JT 

CSR 

033534 

011137 

002250 


MOV 

(RD.ESRUUT 

SAVE UUT 

E SR 

033540 

000207 



RTS 

PC 

RETURN 


033542 

000000 



INC SAD: 0 


INTERRUPTING UNIT CSR ADDRESS 


;MOD U.I.U 
.SBTTL - 


END MODULE 

READ ERROR CODE BUFFER 


033544 

000 

XCRUUT: 

.BYTE 

0 

ERROR 'ODE UUT 

O355o 

000 

UC: 

.BYTE 

0 

WORD COUNT UUT 

033546 

000 

CTKO: 

.BYTE 

0 

CUR TRK DRVAO 

033547 

000 

CTK1 : 

.BYTE 

0 

CUR TRK DRV«1 

033550 

000 

TTRK: 

.BYTE 

0 

TARGET TRK 

033551 

000 

TSEC: 

.BYTE 

0 

TARGET SEC 

033552 

000 

SFTSTS: 

.BYTE 

0 

MICRO CODE SOFT STATUS 

033553 

000 

BTRK: 

.BYTE 

0 

BAD TRK ADR 



* 

.SBTTL 

TRACK TABLE 


033554 

000232 

TRKTBL: 

.REPT 

154. 

TRACK TABLE 



• 

.SBTTL 

DATA BUFFERS 


034006 

000400 

DATPAT: 

.REPT 

256. 

•DATA PATTERN 

034406 

000400 

DATBUF : 

.REPT 

256. 

■DATA BUFFER 

035006 


0 

ENDTST 





PARAMETER CODING 
DATA BUFFERS 

4741 

4752 

475? 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 035010 

4800 

4801 035012 

4802 035022 

4803 035032 

4804 035044 

4805 

4806 035056 

4807 
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.TITLE PARAMETER CODING 


SEQ 101 


.SBTTL HARDWARE PARAMETER CODING SECTION 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 

GPRMA 

GPRMA 

GPRMD 

GPRMD 


MSG 1 ,0,0. 0,177777. YES 
MSG2. 2, 0,0,177777. YES 
MSG3, 4,0, 177777. 0..1., YES 
MSG4, 6.0, 177777. 0..1., YES 


4813 035060 

4814 

4815 035060 

122 

130 

040 

MSG1 : 

ENDHRD 

• ASCIZ 

/RX BUS ADR/ 

4816 035073 

126 

105 

103 

MSG2: 

• ASCIZ 

/VECTOR ADR/ 

4817 035106 

104 

122 

111 

MSG3: 

.ASCIZ 

/DRIVE 9 / 

4818 035121 

105 

130 

120 

MSG4: 

.ASCIZ 

/EXP WRD-CR/ 


EVEN 
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SOFTWARE PARAMETER CODING SECTION 


L 8 


SEO 102 


4829 

4830 

4831 

4832 

4833 

4834 

4835 


4838 

4839 

4840 035134 

4841 

4842 035136 

4843 035144 

4844 035146 

4845 035154 

4846 035166 

4847 035200 

4848 035212 

4849 035224 

4850 035232 

4851 035240 

4852 035246 

4853 035250 

4854 035256 

4855 035264 

4856 035272 

4857 035300 

4858 035306 

4859 035310 

4860 035322 

4861 035334 

4862 035342 

4863 035344 

4864 035356 

4865 035370 

4866 035376 

4867 

4874 

4875 

4876 

4877 035400 


.SBTTL SOFTWARE PARAMETER CODING SECTION 


; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 

• •• 


1 $: 


4$: 


5$: 


6 $: 


BGNSFT 

GPRML MSG6.2.1.YES 
XFERF 1$ 

GPRML MSG7.2.2.YES 
GPRMD MSG8.4. 0,177777.0.6, YES 
GPRMD MSG1 1,6.0. 177777,0.6. YES 
GPRMD MSG14. 10. 0.177777.0, 6. YES 

GPRMD MSG9 . 24 .D . 1 77777 , 1 . , 1 0000 . , YE S 

GPRML MSG15,12.1,YES 
GPRML MSG16, 12.2. YES 

GPRML HSG17.2, lOO.YES 
XFERF 4S 

GPRML MSG18.12.4.YES 
GPRML MSG19.12.10.YES 
GPRML MS620.12.20.YES 
GPRML MSG21, 12.40, YES 
GPRML HSG22.2.200.YES 
XFERF 5$ 

GPRMD MSG23, 14. 0,177777.0., 76.. YES 

GPRMD HSG24. 16. D. 177777.0.. 76., YES 

GPRML HSG25, 2.400. YES 

XFERF 6S 

GPRMD HSG26. 20, D. 177777.1. .26. .YES 

GPRMD HSG27. 22,0.177777,1. ,26. .YES 

GPRML MSG5, 0,177777. YES 

EXIT SFT 


.EVEN 

ENDSFT 
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SOFTWARE PARAMETER CODING SECTION 


A 880 


4881 

000015 




CR==1 5 

4882 

000012 




LF==12 

4883 035400 

122 

130 

130 

MSG5: 

.ASCIZ 

4884 035432 

no 

105 

114 

MSG6: 

, ASCIZ 

4885 035453 

105 

130 

105 

MSG7: 

.ASCII 

4886 035475 

040 

040 

040 


.ASCII 

4887 035547 

040 

040 

040 


•ASCII 

4888 035572 

040 

040 

040 


.ASCII 

4889 035615 

040 

040 

040 


.ASCII 

4890 035653 

040 

040 

040 


.ASCII 

4891 035710 

040 

040 

040 


.ASCII 

4892 035746 

040 

040 

040 


.ASCII 

4893 036030 

104 

101 

124 


•ASCII 

4894 036056 

040 

040 

040 


.ASCII 

4895 036075 

040 

040 

040 


.ASCII 

4896 036113 

040 

040 

040 


.ASCII 

4897 036130 

040 

040 

040 


.ASCII 

4898 036156 

040 

040 

040 


.ASCII 

4899 036203 

040 

040 

040 


.ASCII 

4900 036217 

040 

040 

040 


.ASCII 

4901 036233 

124 

122 

101 


.ASCII 

4902 036263 

040 

040 

040 


.ASCII 

4903 036302 

040 

040 

040 


.ASCII 

4904 036331 

040 

040 

040 


.ASCII 

4905 036360 

040 

040 

040 


.ASCII 

4906 036426 

040 

040 

040 


.ASCII 

4907 036471 

040 

040 

040 


.ASCII 

4908 036550 

040 

040 

040 


.ASCII 

4909 036621 

040 

040 

040 


.ASCII 

4910 036703 

055 

076 

104 


.ASCII 

4911 037016 

040 

040 

111 


.ASCII 

4912 037126 

040 

040 

124 


.ASCII 

4913 037235 

124 

131 

120 


.ASCIZ 

4914 037263 

105 

130 

105 

MSG8: 

.ASCIZ 

4915 037312 

104 

101 

124 

MSG11 

.ASCIZ 

4916 037341 

124 

122 

101 

MSG14 

.ASCIZ 

4917 037370 

104 

105 

126 

MSG9: 

.ASCIZ 

4918 037425 

122 

125 

116 

MSG15 

.ASCIZ 

4919 037463 

122 

125 

116 

MSG16 

.ASCIZ 

4920 037521 

101 

116 

131 

MSG17 

.ASCIZ 

4921 037557 

040 

040 

040 

MSG18 

.ASCIZ 

4922 037627 

040 

040 

040 

HSG19 

.ASCIZ 

492? 037677 

040 

040 

040 

HSG20 

.ASCIZ 

4924 037747 

040 

040 

040 

MSG21 

.ASCIZ 

4925 040017 

115 

117 

104 

MSG22 

.ASCIZ 

4926 040055 

040 

040 

040 

MSG23 

.ASCIZ 

4927 040105 

040 

040 

040 

MSG24 

.ASCIZ 

4928 040135 

115 

117 

104 

MSG25 

.ASCIZ 

4929 040173 

040 

040 

040 

MSG26 

.ASCIZ 

4930 040220 

040 

040 

040 

MSG27 

.ASCIZ 


EVEN 


M 8 


SEO 103 


149 


; CARRIAGE RETURN 
; LINE FEED 
/R XXX EXPANSION TYPE <CR> / 

/HELP TEST SETUP / 

/EXERCISE OPTIONS/<CR><LF> 

/ 0 = WRITE-READ-DATA CK i READ-DATA CK/<CRXLF> 

/ 1 = WRITE ONLY/<CRXLF> 

/ 2 = WR1TE-READ/<CR><LF> 

/ 3 = WRITE-READ-DATA CHE CK/<CR><LF > 

/ 4s READ-DATA CHECK ONLY/<CR><LF> 

/ 5 = READ ONLY (CRC CHECK)/<CRXLF> 

/ 6 = WRITE-READ-DATA CHECK ON ALTERNATE DRIVES/<CR><LF> 

/DATA PATTERN OPTIONS/<CRXLF> 

/ 0 = RANDOM/<CR><LF> 

/ 1 = ZEROS/<CRXLF> 

/ 2 = ONES/<CR><LF> 

/ 3 = FLOATING zero/<crxlf> 

/ 4 s FLOATING ONE/<CRXLF> 

/ 5 = 125/<CR><LF> 

/ 6s 333/<CR><LF> 

/TRACK SEQUENCE OPTIONS/<CRXLF> 

/ 0 = RANDOM/<CRXLF> 

/ 1 s INCREMENT O.D./<CRXLF> 

/ 2 = DECREMENT I.D./<CRXLF> 

/ 3 = INCREMENT O.D. -DECREMENT I.D./<CR><LF> 

/ 4 s BOUNCE BETWEEN I.D. t O.D./<CRXLF> 

/ 5 = BOUNCE BETWEEN INCR. O.D. K DECR. I.D./<CRxlF> 

/ 6 = BOUNCE BETWEEN O.D. & DECR. I.D./<CR><LF> 

/ (O.D. = OUTSIDE DIA. & I.D. = INSIDE DIA. )/<CR><LF > 

/->DEVICE FATAL THRESHOLD LVL=NO. OF HARD ERRS THAT CAUSE DEVICE FATAL ERR/< 
/ IF DRS ‘‘EVL" FLAG IS SET. BUT HARD ERR WILL STILL LOG AS A HARD ERR./<CR> 
/ THE "EVL" FLAG WILL CAUSE 10 RETRIED SOFT ERRS TO BECOME A HARD ERRXCRx 
/TYPE "CR" TO CONTINUE/ 

/EXERCISE # (0-6)/ 

/DATA PATTERN # (0-6)/ 

/TRACK SEQUENCE * (0-6)/ 

/DEVICE FATAL THRESHOLD LEVEL/ 

/RUN TEST IN DOUBLE DENSITY / 

/RUN TEST IN DELETED DATA MODE/ 

/ANY PROGRAM CONTROL FLAGS / 

/ RETRY ON ERROR. LOG SOFT l HARD ERRS/ 

/ RECALIBRATE ON SEEK ERRORS / 

/ PRINT ONLY 10 DATA ERRORS l CONTINUE/ 

/ CLEAR STATISTICAL TABLES NEXT PASS / 

/MODIFY TRACK ADDRESS LIMITS / 

/ OUTER DIAMETER ADR #/ 

/ INNER DIAMETER ADR #/ 

/MODIFY SECTOR ADDRESS LIMITS / 

/ MIN. SECTOR ADR #/ 

/ MAX. SECTOR ADR #/ 



parameter coding 

PATCH AREA 
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N 8 


SEQ 104 


4935 

4936 

4937 040246 


.SBTTL - PATCH AREA 

000000 

^ATCH: 0 .-PATCH AREA 

4938 

4939 

4940 

040450 

.=.♦200 



4947 

4948 

4949 040450 


LASTAD 

040454 


LSLAST : : 

4950 040454 

4951 


ENDMOD 

495? 040454 


BGNSETUP 2 

4953 040454 


BGNPTAB 

4954 040460 

177170 

177170 

4955 040462 

000264 

264 

4956 040464 

000000 

0 

4957 040466 

000000 

0 

4958 040470 


ENDPTAB 

4959 040470 


BGNPTAB 

4960 040474 

177170 

177170 

4961 040476 

000264 

264 

4962 040500 

000001 

1 

4963 040502 

000000 

0 

4964 040504 


ENDPTAB 

4965 040504 


ENDSETUP 

4966 

000001 

.END 
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ABORT 
ADR = 
ADRS 
ADRTST 
ADVTRK 
ASSEMB= 
BAU234 
BCOO 
BDAU23 
BDA121 
BDA133 
BDA241 
BDA25 
BDA26 
BDA40 
BDBU23 
BDB20 
BDBP41 
BDVSCD 
BF243 
BGOO 
B1 TO = 
BI TOO = 
B1T01 = 
BIT02 = 
Bl T 03 =• 
b n 04 = 
BIT05 = 
BIT06 = 
BIT07 = 
BIT08 = 
B1T09 = 
Bin = 
BIT10 = 
B1T11 = 
BI T 12 = 
B1T13 = 
BJT14 = 
BIT15 = 
BIT2 = 
BIT3 = 
BI TA = 
B I T 5 = 

BIT6 =• 
B.T7 = 
BITS = 
BI T9 = 
8*243 
BOE = 
BRONPT 
BRONTK 
BTHDRV 
BTRK 
BTRP4 = 
BTPP6 = 
BUFERL 
BYTCNT 


002270 

000020 

025024 

012774 

021440 

000010 

025122 

013706 

025246 

014756 

020666 

025514 

030716 

032426 

G32506 

025252 

021014 

026034 

021434 

027322 

013566 

000001 

000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

004000 

010000 

020000 

040000 

000040 

000004 

000010 

000020 

000040 

000100 

C00200 

000400 

001000 

027550 

000400 

017462 

020126 

021432 

033553 

000004 

000006 

007364 

026050 


BYTNUM 

CKDVAV 

CKSML 

CKSMRT 

CLASWD 

CLRSTA 

CMD 

CNSCLC 

CNTKLC 

CONTRL 

CR 

CRC 

CRCBAD 

CRCBRT 

CRCERT 

CSADR 

CSEC 

CSRADR 

CSREV 

CSRUUT 

CTKO 

CTK1 

CTRK 

CURSEC 

CURTRK 

CVSTUT 

CVUNIT 

CVUTST 

CSAU = 

C$AUTO= 

CSBRK = 

CSBSEG= 

CJBSUB= 

C$CEFG= 

C$CLCK= 

C$CLEA= 

C$CLOS= 

C$CLP1= 

C$CVEC= 

CJDCLN= 

C*DODU= 

C$DRPT= 

CIDU = 

C$EDIT= 

CIERDFs 

CSERHR= 

CSERRO- 

C$ERSF = 

CSERSO= 

CSESCA= 

CJESEG= 

C$ESUB= 

C$ETST= 

CSEXI T= 

C$GETB= 

CSGETU= 

csgman= 


026052 
014742 
007354 
002310 
027620 
020656 
002332 
023316 
023320 
013564 
000015 G 
007434 
007444 
002312 
002314 
025034 
023276 
025332 
027072 
002246 
033546 
033547 
023306 
023710 
024240 
004756 
004752 
004654 
000052 
000061 
000022 
000004 
000002 
000045 
000062 
000012 
000035 
000006 
000036 
000044 
000051 
000024 
000053 
000003 
000055 
000056 
000060 
000054 
000057 
000010 
000005 
000003 
000001 
000032 
000026 
000027 
000043 


CSGPHR= 

CSGPL0= 

CSGPRI= 

CSINIT= 

CSINLP= 

CSMANI= 

CSMEM = 

CSMSG = 

Ct0PEN= 

C$PNTB= 

C$PNTF= 

CSPNTS= 

CSPNTX= 

CSQIO = 

C$RDBU= 

C$REFG= 

C$RESE= 

C$REVI= 

CSRFLA= 

CSRPT = 

CSSEFG= 

C$SPRI= 

C$SVEC= 

C$TPRi= 

DAERCT 

DARDRT 

DATA 

DA TART 

DATASB 

DATAWS 

DAT AO 

DATA1 

DATBUF 

DATBYT 

DATPAT 

DAWTRT 

DBADR 

DDERCT 

DELAY 

DE DAT 

DEN 

DFPTBl 

DFTL 

DIAGMC= 

DLDTER 

DIY 

DMSG1 

DMSG2 

DNBIT = 

DNFLAG 

DRIVEN 

DRVDN 

DRVFN 

DRVTST 

DUA121 

DUA26 

DUB20 


000042 
000030 
000040 
00001 1 
000020 
000050 
000031 
000023 
000034 
000014 
000017 
000016 
000015 
000377 
000007 
000047 
000033 
000003 
000021 
000025 
000046 
000041 
000037 
000013 
026054 
002320 
007474 
002316 
026056 
026060 
017520 
017536 
034406 
017746 
034006 
002322 
025032 
002330 
025230 
002244 
002242 
002160 G 
002216 
000000 
007504 
025224 
026064 
026161 
000040 G 
025226 
015270 
021444 
023332 
023324 
015246 
032434 
021370 


9 


SEQ 105 


DUC20 

021000 

E F 09 = 

000011 G 

DUMSG1 

013442 

EF 10 = 

000012 G 

DUMSG2 

013503 

EF 1 1 = 

000013 G 

DVDNCK 

021442 

EF 12 = 

000014 G 

DVFT = 

000001 G 

EF 1 3 = 

000015 G 

DVT S T 

024404 

EF 14 = 

000016 G 

DX 

025222 

EF 1 5 = 

000017 G 

EA1211 

016004 

EF 16 = 

000020 G 

EA243 

027264 

FG121 1 

015526 

EA2433 

030210 

EH1211 

015750 

EA2434 

030274 

EIA11 

014126 

EB24U1 

030452 

EIA12 

014374 

EB243 

027406 

EIA121 

015232 

EB2433 

030160 

EIA24 

025374 

ECCLAS 

030624 

EIA25 

031174 

ECLOG 

007604 

EIA40 

032670 

ECTAB 

003116 

EIB121 

015050 

EC1 

003170 

EIB20 

021354 

EC10 

003*55 

EIB23 

022646 

ECU 

003603 

EIB234 

025012 

EC12 

003660 

EIB251 

032102 

EC1 3 

0037V 

EIB26 

032416 

EC14 

003 77 j 

tICII 

011756 

EC1 5 

004021 

EIC11 

014212 

EC16 

004107 

EIC121 

015212 

EC1 7 

004153 

EIC20 

021106 

E C 2 

003236 

EIC25 

031126 

E C 20 

004207 

EIC40 

032652 

E C 21 

004254 

E1D121 

015226 

EC22 

004311 

EID23 

023032 

E C 23 

004360 

EID232 

024162 

EC24 

004413 

EID233 

024366 

E C 2432 

030064 

E I E 1 2 

01456- 

EC25 

004442 

EIE21 

022146 

E C 3 

003304 

E I E 22 

022456 

EC4 

003332 

EIE23 

023134 

E C 5 

003400 

E IF 1 1 

012224 

EC6 

003451 

E I F 20 

021154 

EC7 

003477 

E I F 21 

022122 

EDB241 

026042 

EIF241 

025742 

EDC20 

021404 

EIF25 

031116 

EDOO 

013746 

EIH20 

021232 

EDI ? 1 1 

016000 

EIH232 

024012 

ED2341 

025102 

EIH234 

024712 

EF.CON= 

000036 G 

E 1 121 

022116 

EF ,NEU= 

000035 G 

E I 1231 

023370 

EF.PWR= 

000034 G 

EIJ23 

023200 

EF.RES= 

000037 G 

EIK234 

024560 

EF . STA= 

000040 G 

EIM241 

025702 

E F 01 = 

000001 G 

E 1243 

027576 

E F 02 = 

000002 G 

ELA10 

014054 

E F 03 = 

000003 G 

ELA11 

014120 

E F 04 = 

000004 G 

ELA12 

014270 

E F 05 = 

000005 G 

ELA20 

020774 

E F 06 = 

000006 G 

ELA231 

023s62 

E F 07 = 

000007 G 

ELA241 

025500 

EF08 = 

000010 G 

ELA25 

030740 
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ELA40 

032530 

ENDS! 

011240 

ETTAB 

027630 

031616 

ELB1 ' 

014162 

ENDTKS 

020632 

ET1 

ELB12 

014342 

ENDUP 

002576 

EVCMD 

027066 

ELB121 

015036 

ENDXER 

003112 

EVDATA 

025412 

ELB20 

021276 

ENDOO 

014012 

EVDVRE 

027076 

ELB22 

022352 

E NO 1 2 1 

015260 

EVDVST 

026206 

ELB231 

023622 

END1 3 

017374 

EVL = 

000004 G 

ELB232 

024206 

END131 

017702 

EVTSTR 

025334 

ELB241 

025744 

END133 

020674 

EVUTEC 

030476 

ELB25 

031036 

END20 

021420 

EXADR 

022154 

ELB26 

032410 

END22 

022500 

EXADTB 

022164 

ELC11 

014206 

END231 

023642 

EXCMP 

014020 

ELC22 

022400 

END232 

024214 

EXHCP 

021430 

ELC231 

023620 

END233 

024402 

EXMSG 

003114 

ELC233 

024340 

END234 

025016 

EXN 

021424 

ELC242 

026306 

END241 

026016 

E X 1 

022204 

ELC244 

030614 

END242 

027064 

EX2 

022214 

ELDI1 

012300 

END243 

027604 

EX3 

022230 

ELD22 

022422 

END244 

030620 

EX4 

022244 

ELD231 

023610 

END251 

032106 

EX5 

022254 

ELD233 

024362 

END26 

032442 

EX6 

022264 

ELD23A 

024714 

END30 

032464 

EX7 

022300 

ELD25 

031170 

END40 

032676 

ESEND = 

002100 

ELD251 

032004 

ERRBLK 

002402 G 

E$LOAD= 

000035 

ELE 1 2 

014556 

ERRMSG 

002400 G 

FCKMSG 

017223 

ELE22 

022450 

ERRNBR 

002376 G 

FIN 

011520 

ELE 23 

023130 

ERROR 

002354 

FIRST 

014074 

ELE234 

024764 

ERRORS 

033363 

FLAGS 

002266 

ELE 244 

030604 

ERRREG 

002604 

FLGDRS 

002264 

ELf 12 

014546 

ERRSAV 

027610 

floato 

017546 

ELF 20 

021134 

ERRSY 

002274 

FL0AT1 

017614 

ELF 231 

023602 

ERRTY 

002276 

fNEV4 

030622 

ELf 232 

024100 

ERRTYP 

002374 G 

FORMCK 

015304 

ELF 251 

032072 

ERSTAT 

025026 

FUNCT 

033335 

ELGI1 

012022 

ERSVCT 

027612 

FUNEV 

027070 

ELG12 

014622 

ERTSAV 

021452 

FUNTY 

030342 

ELG21 

021.736 

ERT1 

031176 

F $AU = 

000015 

ELG251 

031>72 

ERT10 

031371 

F$AUTO= 

000020 

ELHI1 

012066 

ERT11 

031423 

FSBGN = 

000040 

ELH12 

014412 

ERT12 

031435 

FSCLEA= 

000007 

ELH20 

021224 

ERT13 

031450 

F$DU = 

000016 

ELH231 

023452 

ERTU 

031507 

FSEND = 

000041 

ELH234 

024622 

ERT15 

031546 

F SHARD = 

000004 

ELM251 

032060 

ERT16 

031601 

F$HU s 

000013 

ELII1 

012250 

ERT2 

031210 

F$INIT= 

000006 

ELJ21 

022064 

ERT3 

031221 

F $JMP = 

000050 

Elf n 

012146 

ERT4 

031235 

FSMOD = 

000000 

ELF20 

020744 

ERT5 

031247 

FtMSG = 

000011 

ELF234 

024552 

ERT6 

031263 

F$PROT= 

000021 

ELL 1 1 

012210 

ERT7 

031315 

F SPUR = 

000017 

ELL20 

021270 

ERT8 

031344 

FSRPT = 

000012 

ELM242 

026650 

E R T9 

031360 

FSSEG = 

000003 

ELN21 

021704 

ESCLAS 

033450 

F$SOFT= 

000005 

ENDCVT 

004750 

ESREV 

027074 

FJSRV = 

000010 

END 1 1 

012324 

ESRUUT 

002250 

F$SUB = 

000002 

ENDLD 

017742 

ETCLAS 

031656 

F $SU = 

000014 

endrpt 

005406 

ETSAV 

027606 

F STEST = 

000001 


C 9 


SEO 106 


GETSEC 

023334 


I B 1 2 1 1 

015334 

gettrk 

023742 


IB24U1 

030400 

GETTST 

02H54 


IB243 

027330 

GPSUNO 

014626 


IB2432 

027734 

GPSUNl 

014702 


IB2435 

030132 

GTDRV 

022320 


IB2434 

030250 

GTDVFN 

024254 


ICATDP 

012632 

GTE X 

017302 


ICU234 

025134 

GTEXCD 

014076 


I C 1 21 1 

015372 

GTSYEX 

014022 


I C 243 

027370 

GTSYS 

014216 


I C 24 32 

030022 

GTTK 

020062 


I C 2434 

030260 

GJCNTO= 

000200 


ID 

020652 

G$DELM= 

000372 


IDATDP 

012676 

GSDISP= 

000003 


IDCOMP 

020 c 12 

GJEXCP= 

000400 


I DENT 1 

002606 

GSHILI= 

000002 


IDU = 

000040 G 

GSLOL 1= 

000001 


IDOO 

0137V 

GSNC = 

000000 


ID1211 

015424 

GSOF F S= 

000400 


ID243 

027304 

GSOF SI = 

000376 


IEATDP 

012720 

GSPRMA= 

000001 


IER = 

020000 G 

G$PRMD= 

000002 


IEU234 

025164 

GSPRML= 

000000 


IEOO 

013726 

G$RADA= 

000140 


I E 1 2 1 1 

015444 

GSRADB- 

000000 


IF All 

011670 

G$RADD= 

000040 


IFATDP 

012756 

G$RADL= 

000120 


IFAUP 

002444 

GSRAD0= 

000020 


IFAU23 

025232 

GSXFER= 

000004 


IFA10 

014040 

GJYES = 

000010 


IF A1 1 

014100 

HARD = 

000002 

G 

IFA12 

014244 

HARDER 

002300 


IFA121 

014760 

HCRC 

007524 


IFA20 

020750 

HCRCBD 

007534 


IFA21 

021520 

HDATA 

007564 


IF A22 

022322 

HDD 

007574 


IFA23 

022516 

HDERCT 

002302 


IFA231 

023410 

HELP = 

000000 


IFA232 

024024 

HOE = 

100000 

G 

IFA233 

024262 

HRD 

007544 


IFA234 

024450 

HSEK 

007514 


IFA24 

025360 

HURT 

007554 


IFA241 

025456 

IAATDP 

012552 


IFA242 

026232 

I ARE C 

005112 


IFA244 

030506 

IAOO 

013666 


IFA25 

030720 

IA1211 

015324 


IFA251 

031700 

1A24U1 

030360 


IFA26 

032354 

IA243 

027242 


IFA40 

032510 

IA2431 

027672 


IFB11 

011710 

IA2432 

027724 


IFB10 

014024 

IA2433 

030114 


! FBI 2 

014316 

IA2434 

030234 


i F B 1 2 1 

015010 

IBATDP 

012574 


IFB13 

017342 

IBE 

010000 

G 

I F 020 

021036 

IBU234 

025126 


If B21 

021546 

I BOO 

013700 


IFB22 

022352 
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IFB23 

022606 

I' E 251 

0J2016 

If M20 

021356 

1FB231 

023504 

1 F 1 1 

011772 

1FM21 

021654 

IFB232 

024120 

Iff 12 

014502 

IFM241 

025634 

IFB233 

024314 

If f 121 

015174 

IFM242 

026622 

IFB242 

026326 

If f 20 

021122 

IFN21 

021664 

1FB244 

030524 

If f 21 

021510 

IFN242 

026702 

IFB25 

030770 

If f 23 

023072 

If 021 

022076 

IFB251 

031706 

Iff 231 

023552 

If 0242 

026742 

If B26 

032370 

Iff 232 

024064 

If P242 

026750 

1FB40 

032554 

Iff 241 

025614 

If Q242 

026770 

If C 11 

011724 

1 f f 242 

026722 

IFR242 

027006 

IF Cl 1 

014166 

If f 25 

031060 

IFS242 

027050 

IFC12 

014420 

If f 251 

032026 

If U242 

027024 

If Cl 21 

015116 

IfGM 

011776 

IFV242 

027032 

If Cl 3 

017350 

If G12 

014576 

I f X 242 

026424 

If C20 

021052 

1FG20 

021142 

If 00 

013776 

If C21 

021570 

If G21 

021714 

If 1211 

015464 

IF C22 

022360 

If G23 

023040 

IGATDP 

012602 

If C23 

022714 

If G231 

023422 

I G 1 21 1 

015502 

If C231 

023526 

IFG232 

024102 

IG243 

027422 

If C232 

024136 

IFG242 

026506 

IHATDP 

012616 

IFC233 

024322 

1FG251 

031750 

IH1211 

015554 

If C234 

024602 

IFHI1 

012040 

IH243 

027456 

If C 24 1 

025560 

If H12 

014400 

IIATDP 

012644 

If C242 

026266 

T f Hi 21 

015076 

1 1 1 21 1 

015662 

If C 244 

030536 

I f H20 

021210 

1 1243 

027516 

If C25 

031030 

If H21 

021752 

IJATDP 

012660 

IFC251 

031730 

If H23 

023154 

I J 1 21 1 

015672 

If C40 

032614 

If H231 

023432 

IJ243 

027530 

If Dll 

011744 

IFH232 

023756 

IKATDP 

012726 

IFD12 

014430 

IFH234 

024474 

ILATDP 

012742 

If D121 

015156 

IFH242 

026536 

1NCSAD 

033542 

If D21 

021622 

If H251 

032036 

1NCTR* 

021436 

If D22 

022402 

If III 

012104 

IND IT* 

002210 

1FD23 

022742 

If 1121 

015136 

IN] T 

011250 

If D231 

023544 

If 120 

021064 

INITER 

011470 

If D232 

024146 

If 121 

021774 

INI TL 

014016 

If D233 

024344 

If 123 

022552 

INITTK 

024252 

IFD234 

024612 

If 1231 

023346 

INMSG2 

012332 

IFD241 

025570 

If 1241 

025462 

INMSG3 

012432 

1 f D242 

026444 

If 1242 

026516 

INTCMD 

015266 

1FD244 

030544 

If J 1 1 

012114 

INTER 

007414 

IFD25 

031156 

If J21 

022030 

1NTER1 

011606 

1FD251 

031740 

If J23 

022706 

INTER2 

016167 

1 F £ 1 1 

011764 

If J241 

025762 

INTER3 

016235 

I f £ 1 2 

014444 

If J242 

026546 

1NTER4 

016305 

If £ 121 

015164 

IFXI1 

012124 

INTHO 

033466 

If £21 

022136 

If *20 

020700 

1NTH1 

033502 

If £22 

022430 

If *21 

021576 

intlv 

023706 

If £23 

023064 

If *234 

024532 

ISR = 

000100 G 

1FE232 

024170 

If *241 

025770 

ITCSAD 

015272 

If £233 

024302 

If *242 

026574 

ITDBAD 

015274 

I f £ 234 

024744 

If L 1 1 

012164 

ITDROP 

016064 

If £241 

025604 

If L20 

021246 

ITERMG 

016132 

If £242 

026460 

If L21 

021476 

ITERR 

016016 

If £244 

030564 

If L241 

026000 

iterut 

016153 

I f £ 25 

031074 

I f L24? 

026656 

ITER1 

017032 


SEQ 107 


ITER2 

017116 

LOE = 

040000 

G 

ITER3 

017200 

LOGOF f 

027622 


ITMSG 

016130 

LOT ^ 

000010 

G 

ITMSG1 

016334 

L$ACP 

002110 

G 

ITMSG2 

016357 

LSAPT 

002036 

013562 

G 

ITMSG3 

016401 

LtAU 

G 

1TMSG4 

016454 

ISAUT 

002070 

G 

ITMSG5 

016521 

LSAUTO 

012552 

G 

ITMSG6 

016576 

ISCCP 

002106 

G 

ITMSG7 

016652 

lSClea 

012522 

G 

ITMSG8 

016704 

L$CO 

002032 

G 

ITMSG9 

016753 

LSDEPO 

00201 1 

G 

ITPRNT 

016102 

LSDESC 

002122 

G 

IXE = 

004000 G 

LSDESP 

002076 

G 

I$AU = 

000041 

iSDEVP 

002060 

G 

ItAUTO= 

000041 

LJDISP 

002154 

G 

ISCLN = 

000041 

iSDLY 

002116 

G 

ISDU = 

000041 

LlDTP 

002040 

G 

ISHRD = 

000041 

LSDTYP 

002034 

G 

ISINIT= 

000041 

ISDU 

013274 

G 

ISMOD = 

000041 

LlDUT 

002072 

G 

ISMSG = 

000041 

LtDVTY 

002346 

G 

IlPROT= 

000040 

LtEf 

002052 

G 

1SPTAB= 

000041 

LtENVl 

002044 

G 

I SPUR = 

000041 

LtERRT 

002374 

G 

ISRPT = 

000041 

l$ETP 

002102 

G 

1SSEG = 

000041 

LSEXP1 

002046 

G 

I$SETU= 

000041 

LJEXP4 

002064 

G 

1 SSF T = 

000041 

LJEXP5 

002066 

G 

I JSRV = 

000041 

LSHARD 

035012 

G 

ISSUB = 

000041 

LtHIME 

002120 

G 

I ST ST = 

000041 

LtHPCP 

002016 

G 

J$JMP = 

000167 

ItHPTP 

002022 

G 

LAREC 

005130 

lshu 

002160 

G 

LA2432 

030006 

LSICP 

002104 

G 

LA2433 

030176 

LtINIT 

011250 

G 

LBU234 

025154 

LtLADP 

002026 

G 

LB1211 

015366 

LSLAST 

040454 

G 

LB24U1 

030424 

LiLOAD 

002100 

G 

LB2432 

027762 

ULUN 

002074 

G 

LB2433 

030152 

iSMREV 

002050 

G 

LB2434 

030270 

LSNAME 

002000 

G 

L C 24 3 

027402 

LSPRIO 

002042 

G 

L C 24 32 

030050 

LtPROT 

011242 

G 

LDOO 

013742 

LSPRT 

002112 

G 

LD1211 

015772 

LtREPP 

002062 

G 

IEU234 

025204 

LtREV 

002010 

G 

L E 1 21 1 

015762 

URPT 

005140 

G 

Lf 

000012 G 

iSSOFT 

035136 

G 

LfOO 

014010 

LSSPC 

002056 

G 

LH1211 

015742 

LSSPCP 

002020 

G 

L1NECT 

005636 

LSSPTP 

002024 

G 

LINES 

005640 

LtSTA 

002030 

G 

LlNTYP 

005642 

LSSU 

002172 

G 

111211 

015732 

LSTES7 

002114 

G 

L 1243 

027572 

LtT I ML 

002014 

G 

LOAD 

0177Q4 

LtUNIT 

002012 

G 
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LIOOOO 

002170 

NSEC 

023674 

PRI02 = 

000100 

G 

SOD 

002230 


SYSE8 

033033 

L100Q1 

002220 

NXSCSA 

023656 

PR 1 03 = 

000140 

G 

SECADR 

025040 


SYSE9 

033072 

Li 0002 

004506 

OD 

020650 

PR 104 = 

000200 

G 

SECDN 

002262 


S$LSYM= 

010000 

LI 0003 

004514 

ODCOMP 

020524 

PR 1 05 = 

000240 

G 

SECTOR 

002256 


TARGET 

020640 

LI 0004 

005406 

0NEFIL= 

000001 

PR 106 = 

000300 

G 

SEEK 

023322 


TePRCT 

022160 

LI 0006 

011602 

0TD1TK 

002206 

PR 107 = 

000340 

G 

SEEKCK 

026046 


THA234 

024464 

L10007 

012550 

OTDVFN 

024406 

PRNUM 

005644 


SEEKRT 

002306 


TMA25 

030756 

L10010 

012772 

OTERTP 

030702 

PRTBOS 

004516 


SEK 

007424 


THA40 

032544 

L10011 

013434 

OTEXCM 

032444 

PRTB1 

004510 

G 

SEQUEN 

020654 


TH8231 

023514 

L 1 001 2 

013562 

OTSYER 

032466 

PRTB1S 

004536 


SEQ1 

020164 


THC13 

017366 

L 1 001 3 

035006 

OUTSWD 

025042 

PRTCTR 

005646 


SEQ2 

020220 


THD23 

022772 

L 1 001 4 

013664 

OSAPTS= 

000000 

PRTDAT 

005510 


SEQ3 

020254 


THE22 

022440 

L 1 001 5 

013750 

OSAU = 

000001 

PRTECD 

002272 


SEQ4 

020272 


THE234 

024754 

Li 0016 

035060 

0$BGNR= 

000001 

PRTERR 

002404 


SEQ5 

020340 


THF231 

023560 

L 1 001 7 

035400 

0SBGNS= 

000001 

PRTHDR 

005414 


SEQ6 

020422 


T HF 241 

025624 

L10020 

040460 

OSDU = 

000001 

PRT1 

005504 


SEQ7 

020476 


TKTBPT 

020634 

L 1 002 1 

040474 

0$ERRT= 

000001 

PRT2 

005506 


SETUP 

011364 


TKTL 

024242 

L10022 

040470 

0$GNSW= 

000001 

PTDAT1 

006243 


SE1 

033416 


TKXX 

010070 

L10024 

040504 

0$P0IN= 

000001 

PTEC 

006200 


SFERLG 

030344 


TRACK 

002254 

MAXSEC 

002214 

0SSETU= 

000001 

PTECN 

006327 


SFERR 

021446 


TRAP 

013260 

MAX TRK 

024234 

PAR 

006026 

PTFMNl 

006315 


SFPTBL 

002172 

G 

TRB1T = 

000200 

MCRDRT 

032321 

PAT 

017750 

PTHEAD 

026062 


SFTSTS 

033552 


TRKADR 

025036 

MCUTRT 

032270 

PATCH 

040246 

PTRDSC 

006116 


SOFT = 

000003 

G 

TRKCNT 

020636 

MDRDRT 

032213 

PAT125 

017622 

PTRTY 

031676 


SSEC 

023664 


TRKDN 

002260 

MDUTRT 

032134 

PAT333 

017646 

PTTK 

006225 


STCNTR 

027616 


TRKDNF 

024230 

M1NSEC 

002212 

PG 

017524 

PTTKN 

006343 


STDVDN 

032352 


TRK INC 

024236 

MINTRK 

024232 

PLOC 

011604 

PTUNT1 

006253 


STERRG 

027614 


TRKSEO 

002202 

MRDRT 

032244 

PNT = 

001000 G 

PTUNT2 

006274 


STKSEQ 

017752 


TRKTBL 

033554 

MSG1 

035060 

POUERF = 

000001 G 

PTUTSC 

006147 


STSCDN 

023712 


TRPMS1 

013144 

MSG11 

037312 

PREPT1 

006002 

PT19SP 

006105 


STSCFG 

023662 


TSAVCT 

022162 

MSGU 

037341 

PREPT2 

006030 

PT20SP 

006074 


STSTPA 

017376 


TSEC 

033551 

MSG15 

037425 

PREPT3 

006050 

RANDAT 

017656 


SUM 

017744 


TST 

021422 

MSG16 

037463 

PRESCK 

020536 

RANGEN 

004560 


SUT 

002232 


TSTCK 

027626 

MSG17 

037521 

PRESTK 

020642 

RANUM 

004652 


SUTCV 

004754 


TSTEV 

025410 

MSG18 

037557 

PR I = 

002000 G 

RANI 

004646 


SUTDRP 

013440 


TSTN 

002176 

MSG19 

037627 

PRIDXX 

006360 

RAN2 

004650 


SUTPOS 

015302 


TSTPAT 

002200 

HSG2 

035073 

PRID01 

006426 

RD 

007454 


SUTPTR 

021426 


TSTPTR 

022152 

M5G20 

037677 

PRID02 

006455 

RDERCD 

005026 


SVCGBL= 

000000 


TSTSUT 

022502 

MSG21 

037747 

PRID03 

006504 

RDYUD 

025330 


SVCJNS= 

177777 


TSTWD 

022156 

MSG22 

040017 

PRID04 

006533 

READRT 

002324 


SVCSUB= 

177777 


TTRK 

033550 

MSG23 

040055 

PRID05 

006562 

READSC 

007314 


SVCTAG= 

177777 


T$ARGC= 

000004 

MSG24 

040105 

PRID06 

006611 

RECCMD 

005136 


S VC T S T = 

177777 


TSCODE= 

001004 

MSG25 

040135 

PRID07 

006640 

REFCMD 

015264 


SVUTRG 

033516 


T$ERRN= 

000000 

MSG26 

040173 

PRID08 

006667 

REFDRV 

015306 


SUREG 

002204 


T$EXCP= 

000000 

MSG27 

040220 

PRID09 

006716 

REPORT 

005140 


SYFT = 

000000 

G 

T$FLAG= 

000041 

MSG3 

035106 

PRID10 

006745 

RESTAR= 

000002 

G 

SYSERR= 

004000 

G 

T$FREE= 

040504 

MSG4 

035121 

PRJD11 

006774 

RESTK 

021450 


SYSE10 

033122 


T$GMAN= 

000000 

MSG5 

035400 

PRID12 

007023 

RETRY 

002304 


SYSE11 

033151 


TSHIL1= 

000032 

MSG6 

035432 

PRID13 

007052 

RTMASK 

030474 


SYSE12 

033161 


T$LAST= 

000001 

MSG7 

035453 

PRiDl4 

007101 

RTOFE 

027624 


SYSE13 

033171 


TSLOL 1= 

000001 

MSG8 

037263 

PRID15 

007130 

RXXX 

002172 


SYSE14 

033225 


T$LSYM= 

OKoOO 

MSG9 

037370 

PRID16 

007157 

RX2BI T = 

004000 

G 

SYSE15 

033242 


t$ltno= 

0G0001 

MSKRT 

032110 

PRID17 

007206 

RVDLY 

025326 


SYSE16 

033302 


T$NEST= 

177777 

MWTRT 

032166 

PR 1018 

007235 

RYDX 

025324 


SYSE4 

032700 


TSNSO = 

000000 

neutrk 

020572 

PRID19 

007264 

SAVDLY 

016014 


SYSE5 

052733 


TSNS1 = 

000005 

NOERL 

007374 

PR 100 = 

000000 G 

SCPSCT 

023660 


SYSE6 

032764 


TSNS2 = 

000003 

NONE 

004506 G 

PR 101 = 

000040 G 

SCSYEX 

020676 


SYSE7 

03*010 


TSPCNT: 

000000 
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TSPTAB= 010023 

TSSIN1= 010006 

UDU234 

025156 

UT11 

002344 

XERUUT 

033544 

TtPTHV= 000002 

TS$MSG= 010003 

UF 243 

027412 

UUT 

002234 

XER1 

002663 

UPTNU= 000002 
TSSAVL= 177777 

TSSPC = 000002 

UGOO 

013766 

UUTADR 

002236 

XER2 

002744 

TS*PRO= 010005 

UKINT 

007404 

UUTOFF 

002240 

X I D 

020646 

TtSEGL'- 177777 

TMPTAs 010023 

UK243 

027554 

UOADR 

002220 

XOD 

020644 

T1SEK0= 010003 

TSSRPT = 010004 

UNIT 

002334 

UOVECT 

002224 

XPG 

017554 

TSS 1 ZE = 000014 

TSSSEG= 010003 

UNITDP 

013436 

U1ADR 

002222 

XPSUNO 

01470C 

TtSUBN= 000002 

T$$S0F= 010017 

UNITST 

005024 

U1VECT 

002226 

XPSUNl 

C14740 

TSTAGL= 177777 

TSSSUB= 010015 

UNPKHP 

011656 

VALWD 

025030 

XREC 

005134 

TtTAGN= 010025 

msw = oioooi 

UNT 

G12330 

WATCH 

025104 

XJPSCT 

030340 

TtTEMP= 000000 

TS$TES= 010013 

UNTCD 

015300 

WC 

033545 

XU23 

025322 

TSTEST= 000001 

TOMSG 013124 

UNTCNT 

015276 

WDCNT 

002252 

XU234 

025212 

TSTSTM= 177777 

T1 013564 G 

UNTCOD 

012326 

WDCT 

023326 

XXPG 

017630 

TtTSTS= 000001 

T1.1 013566 

UPDVST 

027230 

WDOT 

023^30 

XSALWA= 

000000 

TttAU = 010012 

T1.2 013706 

UPSECT 

030216 

WRDS 

025022 

X$FALS= 

000040 

TtSAUT= 010010 

UAM = 000200 G 

UTCNT 

005412 

WR1TSC 

007334 

X$OFFS= 

000400 

TWCLE= 010007 

UAU234 025162 

UTSCDN 

023704 

WRT 

007464 

XSTRUE= 

000020 

TISDAT = 010024 

UCOO 013752 

UTTST 

005410 

WRTRT 

002326 

x 1 21 1 

016012 

TtSDU = 010011 

UDCRST 027722 

UTOO 

002336 

XATDP 

012766 

X24U1 

030470 

TMHAR= 010016 

UDHDST 027670 

UT01 

002340 

XDVTST 

022504 

X2431 

027720 

T*tHW = 010000 

UDSFST 030072 

UT10 

002342 

XERPRT 

003034 

X2433 

030214 


. ABS. 040504 000 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 28641 WORDS ( 112 PAGES) 

DYNAMIC MEMORY: 19748 WORDS ( 75 PAGES) 

ELAPSED TIME: 00:03:13 
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CREF V01 

SYMBOL 

VALUE 


REFERENCES 




ABORT 


002270 


#21-1115 

*50-1914 

*50-1929 

56-2097 




*67-2339 

67-2356 

67-2363 

67-2370 

ADR 

r 

000020 

G 

#19-983 



*107-3710 

ADRS 


025024 


*107-3681 

*107-3692 

*107-3700 

ADRTST 


012774 


56-2096 

56-2119 

#58-2153 


advtrk 


021440 


*87-3076 

•87-3097 

87-3100 

*87-3108 

ASSEMB 

z 

000010 


16-786 

16-786 



BAU234 


025122 


#109-3768 

109-3778 



BCOO 


013706 


#67-2358 

67-2373 



BDAU23 


025246 


#109-3799 

109-3805 



BDA121 


014756 


#73-2541 

73-2589 



BDA1 33 


020666 


#85-3025 

85-3027 



BDA241 


025514 


#113-3859 

113-3888 



BDA25 


030716 


#131-4385 

131-4396 



BDA26 


032426 


#135-4565 

135-4568 



BDA40 


032506 


#139-4593 

139-4603 



BDBU23 


025252 


#109-3800 

109-3803 



BDB20 


021014 


87-3052 

#87-3057 

87-3117 


BDB241 


026034 


#113-3900 

113-3903 


#87-3127 

BDVSCD 


021434 


*87-3043 

87-3094 

*87-3096 

BF 243 


027322 


119-4084 

#119-4086 

119-4106 


BGOO 


013566 


#67-2337 

67-2375 



B1TO 

z 

000001 

G 

#19-983 

#19-1014 

19-1065 

52-1994 

B1TOO 

s 

000001 

G 

#19-983 

19-983 

#19-1003 

19-1014 

B1T01 

s 

000002 

G 

#19-983 

19-983 

#19-1002 

19-1013 

BIT 02 

z 

000004 

G 

#19-983 

19-983 

#19-1001 

19-1012 

B1T03 

z 

000010 

G 

#19-983 

19-983 

#19-1000 

19-1011 

B1T04 

s 

000020 

G 

#19-983 

19-983 

#19-999 

19-1010 

B1T05 

z 

000040 

G 

#19-983 

19-983 

19-1009 

19-1008 

B IT 06 

z 

000100 

G 

#19-983 

19-983 

#19-997 

B1T07 

r 

000200 

G 

#19-983 

19-983 

#19-996 

19-1007 

B1T08 

r 

000400 

6 

#19-983 

19-983 

#19-995 

19-1006 

BIT09 

z 

001000 

G 

#19-983 

19-983 

#19-994 

19-1005 

Bin 

z 

000002 

G 

#19-983 

#19-1013 

19-1064 

52-2003 

BITIO 

z 

002000 

G 

#19-983 

#19-993 


19-1066 

BIT11 

z 

004000 

G 

#19-983 

#19-992 

19-1057 

BIT12 

z 

010000 

G 

#19-983 

#19-991 

109-3773 

121-4215 

BIT13 

z 

020000 

G 

#19-983 

#19-990 

109-3781 

121-4202 

BIT14 

z 

040000 

G 

#19-983 

#19-989 

69-2400 

109-3783 

BIT15 

z 

000040 

G 

#19-983 

#19-988 

#19-998 

52-2020 

BIT 2 

z 

000004 

G 

#19-983 

#19-1012 

52-1997 

B1T3 

z 

000010 

G 

#19-983 

#19-1011 

52-2006 

52-2028 

B I T 4 

\ 

000020 

G 

#19-983 

#19-1010 

77-2639 


B I T 5 

z 

000040 

G 

#19-983 

#19-1009 



B1T6 

z 

000100 

G 

#19-983 

#19-1008 



B I T 7 

z 

000200 

G 

#19-983 

#19-1007 

77-2621 


BITS 

z 

000400 

G 

#19-983 

#19-1006 


BU9 

z 

001000 

G 

#19-983 

#19-1005 

77-2644 


BK243 


027550 


#119-4134 

119-4137 



BOE 

z 

000400 

G 

#19-983 




BRONPT 


017462 


*83-2782 

*83-2790 

#83- ”*796 

85-5003 

bront* 


020126 


*85-2900 

*85-2907 

#85-2/08 


G 9 


SEQ 110 


56-2120 *56-2131 *58-2154 58-2158 *60-2194 

67-2376 *71-2500 

*107-3715 *107-3720 *107-3729 #107-3736 107-3757 

#87-3129 


•99-3560 *99-3562 

52-2017 

89-3155 95-3386 121-4221 127-4295 

95-3393 121-4204 

121-4217 121-4220 


52-2025 121-4218 


123-4240 
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87-3067 



BTHDRV 


021432 


*87-3042 

87-3069 

*87-3070 

BTRK 


033553 


27-1261 

#143-4719 



BTRP4 

r 

000004 

G 

#19-1062 

58-2155 

58-2157 


8TRP6 

= 

000006 

G 

#19-1063 




BUFERL 


007364 


#48-1837 




BYTCNT 


026050 


•113-3858 

•113-3886 

113-3887 

#113-3907 

BYTNUM 


026052 


*113-3856 

113-3861 

113-3862 

113-3868 

CKDVAV 


014742 


71-2464 

71-2489 

#73-2538 


usml 


007354 


38-1626 

#48-1836 

121-4190 


CKSMRT 


002310 


#21-1125 




CLASyD 


027620 


•119-4092 

#119-4150 

121-4187 

123-4230 

CLRSTA 


020656 


81-2759 

#85-3023 



CMD 


002332 


#23-1138 

27-1257 

•67-2348 

•77-2667 

CNSCLC 


023316 


•95-3379 

95-3380 

95-3422 

95-3424 

CNTKLC 


023320 


*95-3375 

95-3376 

95-3418 

95-3428 

CONTRL 


013564 


#67-2336 



149-4887 

CR 

r 

000015 

G 

#149-4881 

149-4885 

149-4886 





149-4893 

149-4894 

149-4895 

149-4896 





149-4902 

149-4903 

149-4904 

149-4905 





149-4911 

149-4912 



CRC 


007434 


#48-1842 




CRCBAO 


007444 


#48-1843 




CRC8RT 


002312 


#21-1126 


133-4530 


CRCERT 


002314 


#21-1127 

133-4515 


CSADR 


025034 


*95-3400 

*95-3437 

107-3676 

107-3681 

CSEC 


023276 


95-3364 

9>33 77 

#97-3447 

•71-2481 

CSRADR 


025332 


*37-1540 

•71-2444 

•71-2453 



109-3807 

•109-3808 

109-3809 

#109-3815 

CSREV 


027072 


*115-3923 

115-3926 

115-3969 

115-3973 

CSRUUT 


002246 


#21-1104 

27-1257 

•67-2345 

•77-2661 

CTKO 


033546 


27-1260 

#143-4714 



C T K 1 


033547 


27-1260 

#143-4715 



CTRK 


023306 


95-3358 

95-3373 

#97-3451 

*99-3487 

CURSEC 


023710 


*95-3380 

*95-3422 

95-3424 

CURTRK 


024240 


*95-3376 

95-3418 

*101-3580 

*101-3593 



*101-3618 

#103-3630 



CVSTUT 


004756 


#35-1511 

87-3050 

35-1497 

#35-1504 

CVUNIT 


004752 


35-1489 

35-1491 

CVUTST 


004654 


#35-1487 

62-2226 



CSAU 

r 

000052 


#16-786 

64-2272 



:»auto 

z 

000061 


#16-786 

56-2132 



CSBRK 

z 

000022 


#16-786 



87-5057 

CSBSEO 


000004 


#16-786 

73-2544 

77-2614 

CSBSUB 

r 

000002 


#16-786 

67-2337 

67-2358 


CtCEFG 

r 

000045 


#16-786 




CSCLCK 

z 

000062 


#16-786 

54-2072 



CtCLEA 

z 

000012 


#16-786 



CtCLOS 

z 

000035 


#16-786 




CSCLP1 

z 

000006 


#16-786 

67-2368 


58-2157 

CSCVEC 

z 

000036 


#16-786 

54-2067 

54-2070 

CtDCLN 

z 

000044 


#16-786 

50-1930 

52-2038 

56-2130 

CtDODU 

z 

000051 


#16-786 

56-2101 

56-2104 

56-2110 


H 9 


SEQ 111 


*87-3084 #87-3126 *135-4559 *135-4561 


113-3870 113-3883 *113-3885 #113-3908 


123-4236 

•95-3433 

95-3429 95-3436 #97-3456 

95-3435 #97-3457 

149-4888 149-4889 149-4890 149-4891 149-4892 

149-4897 149-4898 149-4899 149-4900 149-4901 

149-4906 149-4907 149-4908 149-4909 149-4910 


#107-3740 107-3752 107-3755 109-3771 109-3779 

•73-2557 *77-2646 *77-2655 *107-3752 109-3800 

*115-3929 *115-3951 
115-4024 #115-4031 
*109-3807 115-3923 *143-4703 


*99-3499 #99-3550 

101-3600 *101-3602 101-3603 101-3605 *101-3613 


*62-2225 


56-2113 56-2124 56-2127 79-2706 
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67-2380 



ClDRPT 

z 

000024 

#16-786 



ClDU 

Z 

000053 

#16-786 

62-2232 



CSEDIT 

z 

000003 

#16-786 

16-829 



CtERDF 

z 

000055 

#16-786 




CIERHR 

z 

000056 

#16-786 




CSERRO 

z 

000060 

#16-786 

27-1249 

58-2170 

79-2698 

CtEPSF 

z 

000054 

#16-786 




CIERSO 

z 

000057 

#16-786 




CSESCA 

z 

000010 

#16-786 




CIESEG 

z 

000005 

#16-786 

73-2580 

77-2682 

87-3116 

CSESUB 

z 

000003 

#16-786 

67-2352 

67-2369 


CtETST 

z 

000001 

#16-786 

143-4738 



CtEXlT 

z 

000032 

#16-786 

67-2381 



CtGETB 

z 

000026 

#16-786 




CtGETU 

z 

000027 

#16-786 




CSGMAN 

z 

000043 

#16-786 

77-2632 



CtGPHR 

z 

000042 

#16-786 

50-1923 



CtGPLO 

z 

000030 

#16-786 




CtGPRI 

z 

000040 

#16-786 




CSINIT 

z 

000011 

#16-786 

50-1935 



CSINLP 

z 

000020 

#16-786 

89-3150 

95-3381 


CIMANI 

z 

000050 

#16-786 

77-2630 



CIMEM 

z 

000031 

#16-786 




CIMSG 

z 

000023 

#16-786 

31-1349 

31-1369 


CtOPEN 

r 

000034 

#16-786 



31-1374 

CIPNTB 

r 

000014 

#16-786 

27-1257 

31-1371 

CtPNTF 

z 

000017 

#16-786 

50-1928 

52-2037 

52-2040 

CtPNTS 

z 

000016 

#16-786 

44-1744 

44-1756 

44-1766 

CtPNTX 

z 

000015 

#16-786 

27-1260 

27-1261 

29-1289 

CIO 10 

z 

000377 

#16-786 




CtRDBU 

z 

000007 

#16-786 




CtREFG 

z 

000047 

#16-786 

50-1898 

50-1902 

50-1911 

CtRESE 

z 

000033 

#16-786 

#16-786 

54-2071 

71-2441 

CIREVI 

z 

000003 

#16-786 

16-829 



CtRFLA 

z 

000021 

#16-786 

50-1897 



CtRPI 

z 

000025 

#16-786 

38-1650 



CtSEFG 

z 

000046 

#16-786 


109-3784 


CSSPRI 

z 

000041 

#16-786 

109-3766 

58-2155 

CtSVEC 

z 

000037 

#16-786 

50-1931 

50-1934 

CSTPRI 

z 

000013 

#16-786 


113-3873 

#113-3909 

OAERCT 


026054 

•113-3841 

*113-3865 

dardrt 


002320 

#21-1129 




DATA 


007474 

#48-1846 


133-4527 


OATART 


002316 

#21-1128 

133-4512 


DATASB 


026056 

•113-3877 

113-3883 

#113-3910 


DATAUS 


026060 

•113-3878 

113-3883 

#113-3911 


DAT AO 


017520 

83-2797 

#83-2805 



DATA1 


017536 

83-2798 

#83-2811 

113-3860 

113-3898 

DATBUF 


034406 

107-3698 

113-3848 

DATBYT 


017746 

•83-2805 

•83-2811 

•83-2814 

•83-2826 



83-2853 

83-2854 

#83-2865 

107-3696 

DATPAT 


034006 

83-2791 

83-2794 

95-3427 


SEO 112 


l 9 


113-3882 113-3883 

62-2222 62-2230 


•83-2829 *83-2832 *83-2836 *83-2839 *83-2843 

113-3842 113-3859 #143-4731 
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DAUTRT 

002322 

#21-1130 




DBADR 

025032 

*107-36 7 8 

107-3692 

107-3700 

107-3710 

ODERCT 

002330 

#21-1133 




DELAY 

025230 

37-1542 

71-2445 

71-2454 

71-2482 



115-3931 

115-3953 



deldat 

002244 

#21-1103 

*69-2423 

*69-2425 

87-3086 

DEN 

002242 

#21-1102 

37-1536 

*69-2428 

*69-2430 

DFPTBL 

002160 G 

#18-866 




DFTL 

002216 

#18-903 

131-4420 



DIAGHC 

= 000000 

16-786 

16-786 



DLDTER 

007504 

#4e-1 847 




DLY 

025224 

109-3768 

#109-3788 



DMSG1 

026064 

113-3882 

#113-3914 



DMSG2 

026161 

113-3883 

#113-3915 



DNB1T 

= 000040 G 

#19-1056 

71-2443 

71-2446 

71-2452 



77-2656 

107-3679 

109-3771 

109-3779 

DNFLAG 

025226 

*109-3765 

109-3769 

#109-3789 

•143-4701 

DRIVEN 

015270 

*73-2552 

*73-2555 

#75-2598 


DRVDN 

021444 

•87-3045 

•87-3069 

87-3080 

•87-3091 

DRVFN 

023332 

95-3399 

95-3433 

95-3434 

#97-3462 

DRVTST 

023324 

*87-3101 

87-3103 

95-3405 

95-3425 

DUA121 

015246 

#73-2587 




DUA26 

032434 

#135-4568 




DUB20 

021370 

87-3112 

#87-3114 



DUC20 

021000 

#87-3054 




DUMSG1 

013442 

62-2230 

#62-2237 



DUMSG2 

013503 

62-2222 

#62-2238 



DVDNCK 

021442 

*87-3044 

#87-3130 

•89-3170 

•89-3176 

DVFT 

= 000001 o 

#19-1060 

131-4422 

139-4614 


DVTST 

024404 

•95-3397 

*95-3430 

•95-3431 

105-3643 

DX 

025222 

109-3767 

#109-3787 



EA1211 

016004 

77-2677 

#77-2682 



EA24 3 

027264 

119-4076 

#119-4080 



EA2433 

030210 

123-4247 

#123-4250 



EA2434 

030274 

125-4266 

#125-4272 



EB24U1 

030452 

127-4304 

#127-4311 



EB243 

027406 

119-4088 

119-4102 

#119-4104 


EB2433 

030160 

123-4243 

#123-4245 



ECCLAS 

030624 

129-4331 

#129-4354 



ECLOG 

007604 

38-1636 

#48-1855 

119-4112 


ECTAB 

003116 

29-1287 

#29-1297 



EC1 

003170 

29-1297 

#31-1322 



E C 10 

003555 

29-1304 

#31-1329 



ecu 

003603 

29-1305 

#31-1330 



EC12 

003660 

29-1306 

#31-1331 



E C 1 3 

003714 

29-1307 

#31-1332 



ECU 

003773 

29-1308 

#31-1333 



C C 1 5 

004021 

29-1 309 

#31-1334 



EC16 

004107 

29-1310 

#31-1335 



EC 1 7 

004153 

29-1311 

#31-1336 



E C 2 

003236 

29-1298 

#31-1323 



EC20 

004207 

29-1312 

#31-1337 




SEQ 115 


J 9 


107-3715 107-3720 107-3729 #107-3739 

73-2559 77-2648 77-2659 107-3754 #109-3795 

*87-3088 *87-3090 105-3651 115-4007 

105-3664 115-3949 115-4019 


71-2455 71-2477 71-2480 71-2483 73-2558 

115-3930 115-3952 


#87-3131 *135-4569 

•105-3666 

95-3431 #97-3459 


135-4553 *135-4556 
#105-3669 



K 
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EC21 


004254 


29-1313 

#31-1338 


E C 22 


004311 


29-1314 

#31-1339 


E C 2 3 


004360 


29-1315 

#31-1340 


E C 24 


004413 


29-1316 

#31-1341 


EC2432 


030064 


121-4219 

#121-4222 


EC25 


004442 


29-1317 

#31-1342 


E C. 3 


003304 


29-1299 

#31-1324 


EC4 


003332 


29-1 30C 

#31-1325 


ECS 


003400 


29-1301 

#31-1326 


EC6 


003451 


29-1302 

#31-1327 


EC7 


003477 


29-1303 

#31-1328 


EDB241 


026042 


#113-3903 



EDC20 


021404 


87-3056 

#87-3118 


EDOO 


013746 


67-2364 

67-2366 

#67-2368 

EDI 21 1 


016000 


77-2679 

#77-2681 


ED2341 


025102 


107-3756 

#107-3758 


EF .CON 

= 

000036 

G 

#19-983 

#19-1021 


EF .NEU 

Z 

000035 

G 

#19-983 

#19-1022 


EF .PUR 

z 

000034 

G 

#19-983 

#19-1023 

50-1898 

EF .RES 

z 

000037 

G 

#19-983 

#19-1020 

50-1911 

EF.STA 

z 

000040 

G 

#19-983 

#19-1019 

50-1902 

EF01 

z 

000001 

G 

#19-1040 



E F 02 

z 

000002 

G 

#19-1039 



E F 0 3 

z 

000003 

G 

#19-1038 



EF04 

z 

000004 

G 

#19-1037 



E F 05 

z 

000005 

G 

#19-1036 



EF06 

z 

000006 

G 

#19-1035 



EF07 

z 

000007 

G 

#19-1034 



EF08 

z 

000010 

G 

#19-1033 



EF09 

z 

000011 

G 

#19-1032 



EF 10 

z 

000012 

G 

#19-1031 



EF 1 1 

z 

000013 

G 

#19-1030 



EF12 

z 

000014 

G 

#19-1029 



EF 1 3 

z 

000015 

G 

#19-1028 



EF 14 

z 

000016 

G 

#19-1027 



EF 1 5 

z 

00001 7 

G 

#19-1026 



EF 16 

z 

000020 

G 

#19-1025 



EG1211 


015526 


77-2641 

77-2643 

#77-2645 

EMI 21 1 


015750 


77-2671 

77-2673 

#77-2675 

EIA11 


014126 


69-2417 

#69-2419 


EIA12 


014374 


71-2450 

71-2459 

#71-2466 

EIA121 


015232 


73-2543 

73-2582 

#73-2584 

EIA24 


025374 


111-3828 

#111-3830 


EIA25 


031174 


131-4397 

#131-4435 


EIA40 


032670 


1 39-4604 

#139-4628 


E 18121 


015050 


73-2553 

#73-2556 


E1B20 


021354 


87-3093 

87-3099 

#87-3110 

EIB23 


022646 


95-3363 

#95-3373 


E1B234 


025012 


107-3717 

107-3722 

107-3726 

E 18251 


032102 


133-4505 

133-4514 

133-4517 

E1B26 


032416 


135-4560 

#135-4562 


EICI1 


011756 


52-1982 

#52-1986 
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133-4529 133-4532 #133-4535 
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EIC11 

014212 

69-2429 

#69-2431 


#73-2579 



EIC121 

015212 

73-2563 

73-2567 

73-2571 



EIC20 

021106 

87-3066 

#87-3071 





EIC25 

031126 

131-4410 

131-4412 

#131-4426 




EIC40 

032652 

139-4616 

139-4618 

#139-4625 




EID121 

015226 

73-2573 

73-2575 

73-2577 

#73-2583 



E 1023 

023032 

95-3396 

#95-3403 





E 10232 

024162 

101-3609 

#101-3613 





E 10233 

024366 

105-3662 

#105-3664 





EIE12 

014564 

71-2492 

#71-2494 





E1E21 

022146 

89-3223 

#89-3225 





E IE 22 

022456 

93-3317 

93-3327 

#93-3329 




E1E23 

023134 

95-3420 

#95-3422 




52-2022 

E1F 11 

012224 

52-1 ?°a 

52-1999 

52-2005 

52-2008 

52-2019 

E1F20 

021154 

87-3075 

#87-3080 



89-3183 

89-3185 

E 1 F 21 

022122 

89-3152 

89-3163 

89-3177 

89-3179 

89-3214 

89-3217 

#89-3219 




EIF241 

025742 

113-3876 

#113-3884 





E1F25 

031116 

131-4418 

131-4421 

#131-4424 




E1H20 

021232 

87-3089 

#87-3091 





EIH232 

024012 

101-3573 

#101-3581 





E1H234 

024712 

107-3702 

#107-3717 





E 1 121 

022116 

89-3204 

89-3210 

#89-3218 




E 1 I 2^1 

023370 

99-3473 

#99-3479 


#95-3430 



EIJ23 

023200 

95-3383 

95-3404 

95-3426 



EU234 

024560 

107-3697 

#107-3699 





EIM241 

025702 

113-3880 

#113-3883 





E 1243 

027576 

119-4131 

119-4140 

#119-4142 




ELA10 

014054 

69-2397 

#69-2399 





ELA11 

014120 

69-2415 

#69-2418 





ELA12 

014270 

71-2447 

#71-2451 





ELA20 

020774 

87-3049 

#87-3053 





ELA231 

023462 

99-3486 

#99-3499 

#113-3856 




ELA241 

025500 

113-3852 

113-3854 




ELA25 

030740 

131-4387 

#131-4392 





ELA40 

032530 

139-4595 

#139-4600 





ELB11 

014162 

69-2422 

#69-2425 





ELB12 

014342 

71-2456 

#71-2460 





ELB121 

015036 

73-2550 

#73-2554 





ELB20 

021276 

87-3062 

#87-3100 





ELB22 

022352 

93-3310 

#93-3313 





ELB231 

023622 

99-3504 

#99-3529 

#101-3618 




ELB232 

024206 

101-3604 

101-3616 




ELB241 

025744 

113-3864 

#113-3885 





ELB25 

031036 

131-4405 

#131-4413 





ELB26 

032410 

135-4558 

#135-4561 





ELC11 

014206 

69-2427 

#69-2430 





ELC22 

022400 

93-3315 

#93-3318 





ELC231 

023620 

99-3510 

#99-3528 





ELC233 

024340 

105-3655 

#105-3658 





ELC242 

026306 

115-3933 

#115-3936 





ELC244 

030614 

129-4338 

#129-4349 






52-2027 #52-2030 

89-3190 89-3193 89-3198 
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ELD11 

012300 

52-1984 

#52-2040 




ElD22 

022422 

93-3320 

#93-3323 




ELD251 

023610 

99-3515 

#99-3526 




EL0233 

024362 

105-3660 

#105-3663 




ELD234 

024714 

107-3706 

#107-3718 




ELD25 

031170 

131-4432 

#131-4434 




ELD251 

0320C4 

133-4509 

#133-4518 




ELE 1 2 

014556 

71-2478 

#71-2493 




ELE22 

022450 

93-3325 

#93-3328 




ELE23 

023130 

95-3413 

95-3415 

#95-3421 



ELE234 

024764 

107-3724 

#107-3727 




ELE244 

030604 

129-4344 

#129-4347 




ELF 1 2 

014546 

71-2484 

#71-2491 




ELF 20 

021134 

87-3074 

#87-3076 




F L F 231 

023602 

99-3517 

#99-3523 




ELF 232 

024100 

101-3596 

#101-3599 




ELF 251 

032072 

133-4524 

#133-4533 




E LG 1 1 

012022 

52-1993 

#52-1997 




ELG12 

014622 

71-2497 

#71-2501 




ELG21 

021736 

89-3187 

#89-3191 




ELG251 

031772 

133-4511 

#133-4515 




ELHI1 

012066 

52-2002 

#52-2006 




ELH12 

014412 

71-2467 

#71-2470 




ELH20 

021224 

87-3087 

#87-3090 




ELH231 

023452 

99-3491 

#99-3496 




ELH234 

024622 

107-3689 

#107-3707 




ELH251 

032060 

133-4526 

#133-4530 




EL 1 1 1 

012250 

52-2011 

#52-2037 




ELJ21 

022064 

89-3206 

#89-3211 




ELK 1 1 

012146 

52-2016 

#52-2020 




ELK20 

020744 

87-3039 

#87-3047 




ELK234 

024552 

107-3695 

#107-3698 




El L 1 1 

012210 

52-2024 

#52-2028 




ELL20 

021270 

87-3095 

#87-3098 




ELH242 

026650 

115-3990 

#115-3993 




ELN21 

021704 

89-3181 

#89-3184 


#35-1502 


ENDCVT 

004750 

35-1494 

35-1496 

35-1500 


ENDI1 

012324 

52-2036 

52-2039 

#52-2041 



ENDLD 

017742 

83-2857 

#83-2862 


‘ 


ENDRPT 

005406 

#38-1650 

85-3024 




FNDST 

011240 

#48-1858 

#85-3004 



ENDTKS 

020632 

85-2898 

85-3001 



ENDUP 

002576 

27-1259 

#27-1263 




ENDXER 

003112 

29-1282 

#29-1291 




ENDOO 

014012 

67-2379 

#67-2381 




END121 

015260 

73-2588 

#73-2590 




END1 3 

017374 

81-2757 

#81-2761 


83-2846 

#83-2849 

END131 

017702 

83-2808 

83-2821 

83-2835 

END133 

020674 

#85-3028 


#87-3120 



END20 

021420 

87-3085 

87-3115 



END22 

022500 

#93-3334 



99-3528 

#99-3533 

END231 

023642 

99-3522 

99-3525 

99-3527 
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END232 

024214 


101-3599 

101-3614 

#101-3619 







END233 

024402 


#105-3667 









END234 

025016 


107-3685 

#107-3732 








END241 

026016 


113-3890 

113-3892 

113-3894 

#113-3896 






END242 

027064 


115-3935 

115-3939 

115-3957 

115-4025 

#115-4027 





END243 

027604 


#119-4143 









END244 

030620 


129-4328 

129-4336 

129-4342 

129-4346 

129-4348 

#129-4350 




EN0251 

032106 


133-4500 

133-4522 

#133-4536 







EN026 

032442 


135-4554 

#135-4570 








EN030 

032464 


137-4578 

#137-4580 








END40 

032676 


#139-4630 









ERRBLK 

002402 

G 

•27-1247 

#27-1252 

•58-2168 

•79-2695 






ERRHSG 

002400 

G 

#27-1252 

•58-2167 

*79-2694 

•131-4407 

•131-4415 

•139-4613 

*139-4622 



ERRNBR 

002376 

G 

#27-1252 

•58-2166 

*79-2693 

*131-4406 

•131-4414 

•139-4612 

*139-4621 



ERROR 

002354 


#27-1247 

131-4409 

131-4424 

139-4615 

139-4624 





ERRORS 

033363 


#141-4650 









ERRREG 

002604 


*27-1263 

#27-1266 

*131-4382 

*131-4426 

*139-4625 





ERRSAV 

027610 


119-4127 

*119-4142 

#119-4146 







ERRSY 

002274 


#21-1118 

*37-1545 

*60-2193 

*67-2343 

67-2353 

67-2360 

*69-2400 

77-2649 

*35-2897 




87-3114 

*109-3783 

*109-3806 

*115-3934 

*115-3938 

115-3941 

*115-3956 

*115-3965 

*115-4000 




•115-4018 

*115-4023 

*117-4055 

*117-4065 

*129-4335 

139-4586 

139-4625 

*139-4629 


ERRTY 

002276 


#21-1119 

*67-2344 

87-3111 

*109-3773 

*109-3781 

*113-3855 

•113-3866 

•113-3867 

113-3891 




*113-3895 

*115-3960 

*115-3971 

*115-3979 

•115-3985 

*115-3991 

*115-3993 

•115-3996 

•115-3997 




*115-4011 

*115-4015 

119-4080 

119-4081 

119-4116 

119-4142 

121-4204 

*129-4341 

*129-4345 




*129-4347 

*129-4349 

131-4382 

131-4383 

131-4426 

131-4428 

*131-4429 



ERRTYP 

002374 

G 

#27-1252 

*58-2169 

*79-2696 

*131-4408 

*131-4416 

*131-4422 

*139-4614 

*139-4623 


ERSTAT 

025026 


*107-3725 

#107-3737 








ERSVCT 

027612 


*119-4129 

119-4130 

*119-4138 

*119-4141 

#119-4147 





ERTSAW 

021452 


*87-3046 

#87-3134 

113-3853 

113-3893 

*113-3897 

*131-4428 




ERT1 

031176 


#131-4438 

131-4455 








ERTIO 

031371 


#131-4447 

131-4464 








ERT11 

031423 


#131-4448 

131-4465 








ERT12 

031435 


#131-4449 

131-4466 








ERT13 

031450 


#131-4450 

131-4467 








ERT14 

031507 


#131-4451 

131-4468 








ERT15 

031546 


#131-4<.52 

131-4469 








ERT16 

031601 


#131-4453 

131-4470 








ERT2 

031210 


#131-4439 

131-4456 








ERT3 

031221 


#131-4440 

131-4457 








ERT4 

031235 


#131-4441 

131-4458 








ERT5 

031247 


#131-4442 

131-4459 








ERT6 

031263 


#131-4443 

131-4460 








ERT7 

031315 


#131-4444 

131-4461 








ERT8 

031344 


#131-4445 

131-4462 








ERT9 

031360 


#131-4446 

131-4463 








ESCLAS 

033450 


1 39-4606 

#141-4668 








ESREV 

027074 


•115-3924 

115-3967 

115-3994 

115-3998 

115-4009 

115-4015 

115-4016 

115-4021 

#1 1 5-4032 

ESRUUT 

002250 


#21-1105 

27-1257 

•67-2346 

•77-2662 

*109-3809 

115-3924 

1 1 7-4051 

117-4061 

•143-4704 

eklas 

031656 


131-4400 

#131-4474 








ETSAV 

027606 


119-4075 

*119-4078 

*119-4080 

#119-4145 






ettab 

027630 


119-4091 

#119-4159 








E T 1 

031616 


131-4 390 

#131-4455 
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SYMBOL 

value 


EVCMD 


027066 

EVDATA 


025412 

111-3829 

EVOVRE 


027076 

115-3940 

E VOVST 


C26206 

111-3824 

EVL 

z 

000004 G 

#19-983 

EVTSTR 


025334 

87-3104 

EVUTEC 


030476 

111-3826 

EXADR 


022154 

*89-3146 

EXADTB 


022164 

89-3144 

EXCMP 


014020 

•67-2338 

EXHCP 


021430 

•87-3041 

EXMSG 


003114 

*29-1288 

EXN 


021424 

*87-3058 

EXl 


022204 

89-3235 

EX2 


022214 

89-3236 

E X 3 


022230 

89-3237 

EX4 


022244 

89-3238 

EX5 


022254 

89-3239 

EX6 


022264 

89-3240 

EX7 


022300 

89-3234 

ESENO 

z 

002100 

#16-786 

ESLOAD 

z 

000035 

#16-786 

FCKMSG 


017223 

77-2632 

FIN 


011520 

50-1901 

FIRST 


014074 

*69-2401 

flags 


002266 

#21-1114 

FLGDRS 


002264 

#21-1113 

FLOATO 


017546 

83-2799 

FLOAT 1 


017614 

83-2800 

FNEV4 


030622 

*111-3825 

FORMCK 


015304 

#75-2604 

FUNCT 


033335 

#141-4649 

FUNEV 


027070 

*111-3823 

FUNTY 


030342 

*119-4073 

F SAU 

z 

000015 

#16-786 

FSAUTO 

z 

000020 

#16-786 

FSBGN 


000040 

#16-786 

48-1876 

67-2352 

145-4799 

151-4959 

FtCLEA 

z 

000007 

#16-786 

F SOU 

- 

000016 

#16-786 

F SEND 


000041 

#16-786 

16-786 

18-914 

56-2132 

67-2352 

143-4738 

151-4958 

f Shard 

r 

000004 

#16-786 

147-4866 


-DEC-82 AT 

13:51 

PAGE 9 

CREF V01 

-115-3947 

#113-3841 

#117-4040 

*115-3948 

*115-3949 

#115-3922 

89-3157 

#111-3823 

#129-4325 

95-3388 

127-4297 

89-3220 

#89-3234 

#89-3229 


67-2372 

#67-2384 

*137-4579 

87-3077 

*87-3079 

*87-3092 

29-1289 

#29-1294 


#87-3123 

#91-3247 

#91-3251 

#91-3257 

#91-3263 

#91-3267 

#91-3271 

89-3142 


89-3241 

#91-3277 



16-829 

#79-2739 

50-1922 

#50-1931 


#69-2404 

81-2754 


*50-1892 

*50-1900 

•50-1913 

•50-1897 

89-3157 

95-3388 

#83-2814 

#83-7829 

129-4339 

129-4343 

#129-4352 

77-2632 

77-2633 

*77-2635 

115-3936 

#115-4030 


*125-4262 

125-4263 

125-4267 

64-2264 

64-2272 


56-2091 

56-2132 


16-812 

18-914 

19-976 

50-1891 

54-2059 

56-2091 

67-2358 

67-2358 

67-2369 

145-4806 

147-4840 

147-4866 

151 — 49*»9 

151-4964 

151-4965 

54-205V 

54-2072 


62-2212 

62-2232 

16-786 

16-786 

16-*86 

16-786 

16-786 

16-786 

19-976 

31-1349 

31-1369 

62-2232 

64-2272 

67-2335 

67-2358 

67-2358 

67-2369 

143-4738 

145-4806 

145-4813 

151-4959 

151-4964 

151-4965 

145-4799 

145-4806 

145-4806 


B 10 


SEQ 118 


115-3950 #115-4029 

131-4417 

#87-3125 


69-2393 

127-4297 131-4417 


125-4269 

#125-4285 




31-1348 

62-2212 

67-2381 

151-4950 

31-1367 

64-2264 

73-2544 

151-4952 

37-1553 

67-2335 

77-2614 

151-4953 

38-1606 

67-2337 

87-3057 

151-4953 

38-1614 

67-2337 

143-4738 

151-4958 

16-786 

16-786 

37-1553 

67-2335 

67-2369 

147-4866 

16-786 

16-786 

38-1606 

67-2335 

67-2381 

147-4877 

16-786 

16-786 

38-1650 

67-2337 

73-2580 

151-4950 

16-786 

16-786 

50-1935 

67-2337 

77-2682 

151-4952 

16-786 

16-812 

54-2072 

67-2352 

87-5116 

151-4953 

145-4813 

147-4843 

147-4852 

147-4858 

147-4862 


c 

f 

J 

S 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

SI 

S( 

S! 

S' 

S‘ 

si 

S' 

si 

S' 

s 

SI 

<11 


SI 

SI 

SI 

si 

s 
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riHu 

z 

000013 

/M6-786 

18-866 

18-879 







FS1N1T 

z 

000006 

#16-786 

50-1891 

50-1935 







f t JMP 

z 

000050 

#16-786 

67-2381 

145-4806 

147-4866 






FtMOO 

z 

000000 

#16-786 

16-812 

18-914 

19-976 

37-1553 

38-1606 

151-4950 



FtMSG 

z 

000011 

#16-786 

31-1348 

31-1349 

31-1367 

31-1369 




FSPROT 

z 

000021 

#16-786 

48-1876 

48-1880 







FSPWP 

z 

000017 

#16-786 









FSRP 

z 

000012 

#16-786 

38-1614 

38-1650 







FSSEG 

z 

000003 

#16-786 

73-2544 

73-2580 

77-2614 

77-2682 

87-3057 

87-3H6 



F ISOF T 

z 

000005 

#16-786 

147-4840 

147-4843 

147-4852 

147-4858 

147-4862 

1 4 7—4.866 

147-4866 

147-4877 

FtSRV 

z 

000010 

#16-786 









FtSUB 

z 

000002 

#16-786 

67-2337 

67-2352 

67-2358 

67-2369 





FSSU 

z 

000014 

#16-786 

18-891 

18-912 







FtTEST 

z 

000001 

#16-786 

67-2335 

143-4738 







GETSEC 


023334 

95-3423 

#99-3469 








gettrk 


023742 

95-3417 

#101-3570 








GET 1ST 


021454 

87-3059 

#89-3141 








GPSUNO 


014626 

71-2442 

#71-2507 








GPSUN1 


014702 

71-2476 

71-2518 

#71-2524 







GTDRV 


022320 

87-3098 

#93-3306 








GTOVFN 


024254 

95-3398 

95-3432 

#105-3642 







GTEX 


017302 

69-2399 

#81-2748 








GTEXCO 


014076 

69-2395 

#69-2413 








GTSYEX 


014022 

67-2351 

#69-2392 








GTSYS 


014216 

69-2398 

#71-2441 








gttk 


020062 

85-2896 

#85-2899 








GSCNTO 

z 

000200 

#16-786 









GSDELM 

z 

000372 

#16-786 









GSD1SP 

r 

000003 

#16-786 









GtEXCP 

r 

000400 

#16-786 









G1H1L1 

= 

000002 

#16-786 









GtLOL 1 

z 

000001 

#16-786 









GSNO 

= 

000000 

#16-786 









GSOFFS 

z 

000400 

#16-786 

77-2632 

145-4801 

145-4802 

145-4803 

145-4804 

147-4842 

147-4844 

147-4845 




147-4846 

147-4847 

147-4848 

147-4849 

147-4850 

147-4851 

147-4853 

147-4854 

147-4855 




147-4856 

147-4857 

147-4859 

147-4860 

147-4861 

147-4863 

147-4864 

147-4865 


GtOFSI 

z 

000376 

#16-786 

77-2632 

145-4801 

145-4802 

145-4803 

145-4804 

147-4842 

147-4844 

147-4845 



147-4846 

147-4847 

147-4848 

147-4849 

147-4850 

147-4851 

147-4853 

147-4854 

147-4855 




147-4856 

147-4857 

147-4859 

147-4860 

147-4861 

147-4863 

1 47-4864 

147-4865 


GtPRMA 

z 

000001 

#16-786 

145-4801 

145-4802 





147-4859 

147-4860 

GtPRMD 

z 

000002 

#16-786 

145-4803 

145-4804 

147-4845 

147-4846 

147-4847 

147-4848 


147-4863 

147-4864 






147-4853 

147-4854 

GSPRMt 

_ 

000000 

#16-786 

77-2632 

147-4842 

14 7-4844 

147-4849 

147-4850 

147-4851 




147-4855 

147-4856 

147-4857 

147-4861 

147-4865 





GSRADA 

z 

000140 

#16-786 









GtRADB 

z 

000000 

#16-786 




147-4863 

147-4864 




GtRADO 

z 

000040 

#16-786 

147-4848 

147-4859 

147-4860 


147-4853 

147-485*. 

GtRADL 

z 

000120 

#16-786 

77-2632 

147-4842 

147-4844 

147-4849 

147-4850 

147-4851 


147-4855 

147-4856 

147-4857 

147-4861 

147-4865 

147-4845 

147-4846 

147-4847 


GSRADO 

z 

000020 

#16-786 

145-4801 

145-4802 

145-4803 

145-4804 


GtXFER 

z 

000004 

#16-786 

145-4806 

147-4843 

147-4852 

147-4858 

147-4862 

147-4866 

147-4844 

K7-48<.5 

GIYES 

z 

000010 

#16-786 

77-2632 

145-4801 

145-4802 

145-4803 

145-4804 

147-4842 


SEQ 119 


S 

S 


s 

s 
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147-4846 

147-4847 

147-4848 

147-4849 




147-4856 

147-4857 

147-4859 

147-4860 

HARD 

= 000002 

G 

#19-1059 

131-4416 



harder 

002300 


#21-1120 

*127-4303 

*127-4310 

131-4404 

HCRC 

007524 


#48-1849 




HCRCBD 

007534 


#48-1850 




HDATA 

007564 


#48-1853 




HDD 

007574 


#48-1854 



*131-4423 

HDERCT 

002302 


#21-1121 

*131-4419 

131-4420 

HELP 

= 000000 


#15-765 

16-773 

16-777 

16-803 



#19-919 

19-966 

19-1067 

23-1183 




31-1356 

31-1361 

33-1389 

33-1396 




33-1439 

33-1446 

33-1453 

#38-1559 




62-2206 

62-2241 

64-2266 

64-2274 

HOE 

= 100000 

G 

#19-983 




HRD 

007544 


#48-1851 




HSEK 

007514 


#48-1848 

127-4305 



HURT 

007554 


#48-1852 




IAATDP 

012552 


#56-2092 




I ARE C. 

005112 


#37-1543 




I AOO 

01 3666 


#67-2353 




IA1211 

015324 


77-2612 

#77-2615 



IA24U1 

030360 


#127-4295 




I A2A 3 

027242 


#119-4075 




I A2431 

027672 


#121-4187 




IA2432 

027724 


#121-4202 




IA2433 

030114 


#123-4236 




I A2A 34 

030234 


#125-4263 




IBATDP 

012574 


#56-2097 




IBE 

= 010000 

G 

#19-983 




IBU234 

025126 


#109-3769 

109-3776 



I BOO 

013700 


67-2354 

#67-2356 



IB1211 

015334 


#77-2617 




IB24U1 

030400 


127-4296 

#127-4299 



IB243 

027330 


#119-4088 




IB2432 

027734 


#121-4204 




IB2433 

030132 


#123-4240 




182434 

030250 


125-4264 

#125-4267 



ICATDP 

012632 


56-2103 

#56-2105 



ICU234 

025134 


#109-3771 




I C 1 2 1 1 

015372 


77-2616 

#77-2624 



I C 24 3 

027370 


#119-4099 




I C 24 32 

030022 


121-4208 

#121-4215 



I C 24 34 

030260 


#125-4269 



#85-3013 

ID 

020652 


*69-2420 

*81-2752 

85-2890 

IDATDP 

012676 


56-2093 

56-2098 

56-2106 

#56-2115 

IDCOMP 

020512 


#85-2982 




I DE NT 1 

002606 


27-1257 

#27-1268 



I DU 

= 000040 

G 

#19-983 




IDOO 

013714 


#67-2360 




ID1211 

015424 


77-2622 

#77-2630 



1024 5 

027304 


#119-4083 





( 


0 


147-4850 

147-4851 

147-4853 

147-46j4 147-4855 

0 

147-4861 

147-4863 

147-4864 

147-4865 

$ 

c 

*131-4425 

131-4431 

*131-4434 


3 

S 


s 

s 

s 

s 

s 


16-821 

16-831 

16-850 

18-873 

18-905 

•4 

S 

23-1189 

25-1210 

25-1220 

25-1228 

31-1351 

s 

33-1402 

33-1409 

33-1415 

33-1422 

33-1431 

s 

48-1860 

50-1936 

50-1945 

54-2061 

54-2074 

s 

#145-4744 

145-4808 

145-4821 

147-4868 

1 51 -494 1 

s 


s 

s 

s 


T 


T 

1 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

T 

1 

T 

T 

I 

T 

T 

T 

1 

1 

T 

T 

T 

T 

T 

1 


E 10 


SEO 121 


CNRXDA CREATED BY MACRO ON 15-DEC-82 AT 13:51 
SYMBOL CROSS REFERENCE 


SYMBOL 

value 

REFERENCES 


1EATDP 

012720 

#56-2120 


IER 

= 020000 G 

#19-983 


IEU234 

025164 

#109-3779 


IEOO 

013726 

#67-2363 


IE1211 

015444 

#77-2633 


I F AM 

011670 

#52-1969 


IFATDP 

012756 

56-2116 

56-2126 

ifaup 

002444 

#27-1258 


1FAU23 

025232 

#109-3796 


1 F A 1 0 

014040 

69-2394 

#69-2396 

IFA11 

014100 

#69-2414 


1FA12 

014244 

#71-2446 


1FA121 

014760 

#73-2542 


IFA20 

020750 

#87-3048 

87-3055 

IFA21 

021520 

89-3148 

89-3151 

1FA22 

022322 

#93-3307 


IFA23 

022516 

#95-3347 


IFA231 

023410 

#99-3485 


IFA232 

024024 

#101-3584 


IFA233 

024262 

#105-3644 


IFA234 

024450 

#107-3683 


IFA24 

025360 

#111-3827 


IFA241 

025456 

#113-3851 


IFA242 

026232 

#115-3926 


[ F A 7 44 

030506 

#129-4327 


IFA^I 

030720 

#131-4386 


1FA251 

031700 

#133-4499 


IFA26 

032354 

#135-4553 


IFA40 

032510 

#139-4594 


IFBI1 

011710 

52-1970 

#52-1974 

IFB10 

014024 

#69-2393 


1 FBI 2 

014316 

#71-2455 


I FBI 21 

015010 

#73-2549 


I FBI 3 

017342 

#81-2754 


IFB20 

021036 

#87-3061 


IFB21 

021546 

89-3154 

#89-3159 

IFB22 

022332 

#93-3309 


IFB23 

022606 

95-3355 

#95-3362 

IFB231 

023504 

#99-3503 


IFB232 

024120 

101-3601 

#101-3603 

IFB233 

024314 

105-3645 

105-3650 

IF 8242 

026326 

115-3927 

#115-3940 

IFB244 

030524 

#129-4333 


IFB25 

030770 

#131-4402 


IFB251 

031 706 

#133-4501 


IF 626 

032370 

#135-4557 


IFB40 

032554 

#139-4608 


IFCI1 

011724 

52-1975 

#52-1978 

IFC11 

014166 

69-2424 

#69-2426 

IFC12 

014420 

71-2465 

71-2469 

IFC121 

015116 

73-2561 

#73-2564 

IFC13 

017350 

#81-2756 



#56-2128 


#89-3153 


#105-3652 


#71-2471 


PAGE 12 
CREF V01 



f 10 


SEQ 12? 


CNRXDA 

CREATED BY 

MACRO ON 15-DEC-82 AT 

13:51 

SYMBOL 

CROSS REFERENCE 




SYMBOL 

VALUE 

REFERENCES 



F C 20 

021052 

#87-3064 



F C 2 1 

021570 

89-3160 

#89-3164 


FC22 

022360 

93-3312 

#93-3314 


FC23 

022714 

95-3382 

#95-3384 


F C 231 

023526 

99-3495 

99-3498 

#99-3509 

FC232 

024136 

#101-3607 



F C 233 

024322 

#105-3654 



F C23C 

024602 

107-3687 

#107-3703 


FC241 

025560 

#113-3868 



F C 24 2 

026266 

#115-3932 



FC244 

030536 

129-4334 

#129-4337 


FC25 

031030 

131-4403 

#131-4411 


F C251 

031730 

133-4502 

#133-4506 


FC40 

032614 

139-4609 

#139-4617 


FDI1 

01174*. 

52-1979 

#52-1983 


F 0 1 2 

014430 

71-2472 

#71-2474 


FD121 

015156 

73-2569 

#73-2572 


FD21 

021622 

#89-3171 



F 022 

022402 

93-3308 

#93-3319 


F 023 

022742 

95-3387 

#95-3390 


F 0231 

023544 

#99-3514 



FD232 

024146 

101-3608 

#101-3610 

# , C5-!6<9 

F 0233 

024344 

105-3653 

105-3657 

F 0234 

024612 

#107-3705 



F 0241 

025570 

#113-3870 



F 0242 

026444 

115-3955 

#115-3958 


FD244 

030544 

#129-4339 



F 025 

031156 

#131-4431 



F 025 1 

031740 

#133-4508 


#52-19P7 

feii 

011764 

52-1973 

52-1977 

F E 1 2 

014444 

#71-2477 



FE121 

015164 

#73-2574 



F E 21 

022 1 36 

#89-3222 



F E 22 

022430 

93-3322 

#93-3324 


F E 2 3 

023064 

95-3408 

95-3410 

#95-3412 

F E 23? 

024170 

101-3611 

#101-3615 


FE233 

024302 

#105-3649 



F E 234 

024744 

107-3704 

#107-3723 

#113-3873 

FE241 

025604 

1 1 3-3869 

113-3871 

FE242 

026460 

115-3959 

#115-3961 


FE244 

030564 

129-4340 

#129-4343 


F E 25 

031074 

#131-4420 



FE251 

032016 

133-4507 

#133-4521 


F F 1 1 

011772 

#52-1989 



F F 12 

014502 

#71-2483 



F F 121 

015174 

#73-2576 



F F 20 

021122 

#87-3073 



F F 21 

021510 

#89-3150 



FF 23 

023072 

#95-3414 



F F 231 

023552 

#99-3516 



F F 232 

024064 

#101-3595 



F F 241 

025614 

#113-3875 




13 

V01 



G 10 


SEQ 123 


CNRXDA 

CREATED BY 

MACRO ON 15-DEC-82 AT 

13:51 

SYMBOL 

CROSS REFERENCE 




SYMBOL 

value 

REFERENCES 



IFF 242 

026722 

115-3999 

#115-4002 


IFF 25 

031060 

#131-4417 



IFF 251 

032026 

#133-4523 



1FGI1 

011776 

#52-1991 



IFG12 

014576 

71-2473 

71-2475 

71-2490 

1FG20 

021142 

#87-3077 



IFG21 

021714 

89-3165 

89-3167 

#89-3186 

1 F G23 

023040 

95-3385 

95-3389 

#95-3405 

1FG231 

023422 

#99-3488 



IFG232 

024102 

101-3585 

#101-3600 


IFG242 

026506 

115-3942 

#115-3967 


1FG251 

031750 

#133-4510 



1FHI1 

012040 

52-1990 

#52-2000 


1 F Ml 2 

014400 

#71-2467 



1FH121 

015076 

#73-2560 



IFH20 

021210 

87-3078 

#87-3086 


1FH21 

021752 

89-3156 

89-3158 

#89-3194 

IFM23 

023154 

95-3411 

#95-3425 


IFM231 

023432 

#99-3490 



1FH232 

023756 

#101-3572 



1FH234 

024474 

#107-3688 



IFH242 

026536 

115-3968 

#115-3973 


1FH251 

032036 

#133-4525 



IF 1 1 1 

012104 

52-1988 

#52-2009 


IF 1121 

015136 

73-2565 

#73-2568 


IF 120 

021064 

87-3065 

#87-3067 


IF 121 

021774 

89-3195 

89-3197 

#89-3199 

IF 123 

022552 

95-3352 

#95-3354 


IF 1231 

023346 

#99-3472 



IF 1241 

025462 

#113-3853 



IF 1242 

026516 

#115-3969 



if j n 

012114 

#52-2012 



IFJ21 

022030 

89-3200 

#89-3205 


IFJ23 

022706 

#95-3381 



IF J241 

025762 

#113-3889 



1FJ242 

026546 

115-3970 

#115-3975 


IFK11 

012124 

#52-2015 



IFK20 

020700 

#87-3038 



1FK21 

021576 

#89-3166 



IF *234 

024532 

#107-3694 



I F K 24 1 

025770 

#113-3891 



IFK242 

026574 

115-3978 

#115-3981 


iflii 

012164 

52-2014 

#52-2023 


1F120 

021246 

87-3068 

#87-3094 


I F L 2 1 

021476 

#89-3147 



IF L 24 1 

026000 

#113-3893 



1FL242 

026656 

115-3972 

115-3980 

115-3986 

1FM20 

021356 

#87-3111 



1FM21 

021654 

89-3172 

89-3174 

#89-3178 

1FM241 

025634 

#113-3879 



1FM242 

026622 

115-3984 

#115-3987 


IFN21 

021664 

#89-3180 




PAGE 14 
CREF V01 


#71-2496 


115-3992 


#115-3994 



CNRXDA 

CREATED BY 

MACRO ON 1 5-DEC-82 AT 

13:51 

PAGE 15 

SYMBOL 

CROSS REFERENCE 




CREF V01 

SYMBOL 

VALUE 

REFERENCES 




IFN242 

026702 

115-3964 

115-3974 

115-3995 

#115-3998 

If 021 

022076 

#89-3213 




1 f 0242 

026742 

#115-4007 




IFP242 

026750 

#115-4009 




I F 0242 

026770 

115-4008 

#115-4013 



IFR242 

027006 

115-4010 

115-4012 

115-4014 

#115-4016 

1FS242 

027050 

115-3966 

115-4001 

115-4004 

115-4006 

IFU242 

027024 

115-4017 

#115-4019 



IFV242 

027032 

#115-4021 




IFX242 

026424 

#115-3954 




IFOO 

013776 

67-2371 

#67-2376 



If 1211 

015464 

#77-2637 




IGATDP 

012602 

#56-2099 




IG1211 

015502 

77-2638 

#77-2640 



1G243 

027422 

119-4079 

#119-4107 



IHATOP 

012616 

56-2100 

#56-2102 



IH1211 

015554 

#77-2649 




IH243 

027456 

119-4110 

#119-4116 



I 1ATDP 

012644 

#56-2108 




111211 

015662 

#77-2663 




1 1243 

027516 

119-4119 

#119-4127 



IJATDP 

012660 

56-2109 

#56-2111 



I J 1 21 1 

015672 

#77-2665 




I J 24 3 

027530 

#119-4130 




IKATDP 

012726 

#56-2122 




ILATOP 

012742 

56-2123 

#56-2125 



INCSAD 

033542 

*143-4687 

*143-4694 

143-4702 

#143-4707 

INCTRK 

021436 

*87-3100 

*87-3107 

#87-3128 

95-3414 

IND1TK 

002210 

#18-900 

69-2420 

81-2752 

101-3570 

INI T 

011250 

#50-1892 




INI TER 

011470 

50-1910 

#50-1928 


*87-3109 

INI TL 

014016 

*67-2340 

#67-2383 

87-3038 

INITTK 

024252 

*87-3040 

101-3572 

•101-3574 

#103-3635 

INMSG2 

012332 

52-2037 

#52-2046 



INMSG3 

012432 

52-2040 

#52-2047 


#75-2597 

INTCMD 

015266 

*73-2551 

*73-2554 

73-2556 

INTER 

007414 

#48-1840 




INTER1 

011606 

50-1928 

#50-1958 

#79-2724 


INTER? 

016167 

71-2448 

71-2493 


INTER3 

016235 

71-2457 

71-2491 

#79-2725 


INTER4 

016305 

71-2498 

#79-2726 



INTHO 

033466 

50-1931 

#143-4687 



INTHl 

033502 

50-1934 

#143-4694 

99-3506 

#99-3549 

INTLV 

023706 

99-3488 

99-3496 

I SR 

= 000100 G 

#19-983 


73-2557 

73-2568 

ITCSAD 

015272 

*73-2538 

73-2556 


77-2663 

77-2665 

77-2668 

73-2576 

I TDBAD 

015274 

•73-2540 

73-2560 

73-2564 

I TDROP 

016064 

73-2581 

77-2683 

#79-2705 


MERMG 

016132 

79-2694 

#79-2722 


73-2579 

I TERR 

016016 

71-2449 

71-2458 

71-2494 

ITERUT 

016153 

79-2714 

#79-2723 




H 10 


SEQ 124 


115-4020 115-4022 #115-4024 


l 

l 

i 

l 

l 

l 

i 

l 

l 

i 

i 

i 


95-3416 i 

l 


89-3147 95-3362 99-3472 l 

l 

l 

l 

l 

l 

l 


#75-2599 77-2645 77-2646 77-2655 77-2661 

#75-2600 77-2617 77-2624 77-2651 77-2662 

77-2675 77-2681 #79-2693 


CNRXDA 


CREATED BY 

MACRO ON 1 5-DEC-82 AT 

13:51 

PAGE 16 

SYMBOL 

CROSS REFERENCE 




CREF V01 

SYMBOL 

value 

REFERENCES 




ITER1 


017032 

77-2670 

#79-2736 



HER2 


017116 

77-2672 

#79-2737 



HER5 


017200 

73-2562 

#79-2738 



I1MSG 


016130 

*71-2448 

*71-2457 

•71-2491 

*71-2493 




*77-2627 

*77-2670 

*77-2672 

•77-2674 

I’MSGI 


016334 

73-2566 

#79-2727 



l TMSG2 


016357 

73-2578 

#79-2728 



ITMSG3 


016401 

77-2619 

#79-2729 



I TMSGA 


016454 

77-2674 

#79-2730 



ITMSG5 


016521 

73-2570 

#79-2731 



l T MSG6 


016576 

77-2627 

#79-2732 



1TMSG7 


016652 

77-2678 

#79-2733 



I1MSG8 


016704 

77-2680 

#79-2734 



I TMSG9 


016753 

77-2653 

#79-2735 



I TPRNT 


016102 

77-2620 

77-2628 

79-2699 

#79-2713 

1XE 

z 

004000 G 

#19-983 




liAU 

z 

000041 

#16-786 

#64-2264 

#64-2272 


llAUTO 

z 

000041 

#16-786 

#56-2091 

#56-2132 


ISCLN 

z 

000041 

#16-786 

#54-2059 

#54-2072 


1SDU 

z 

000041 

#16-786 

#62-2212 

#62-2232 


11HRD 

Z 

000041 

#145-4799 

#145-4813 



IS1NI T 

Z 

000041 

#16-786 

#50-1891 

#50-1935 


1SMOD 

z 

000041 

#16-786 

16-812 

#16-812 

18-914 




38-1606 

#38-1606 

151-4950 

#151-4950 

ItMSG 

z 

000041 

#16-786 

#31-1348 

#31-1349 

#31-1367 

ItPROT 

z 

000040 

#16-786 

#48-1876 



IIP TAB 

r 

000041 

#16-786 

151-4953 

#151-4953 

151-4958 

I1PWR 

z 

000041 

#16-786 




11RPT 

z 

000041 

#16-786 

#38-1614 

#38-1650 


1SSEG 

z 

000041 

#16-786 

67-2335 

67-2337 

67-2358 




#87-3116 




USE TU 

z 

000041 

#16-786 

151-4952 

#151-4952 

151-4953 

1SSFT 

z 

000041 

#147-4840 

#147-4877 



ItSRV 

- 

000041 

#16-786 




IVSUB 

z 

000041 

#16-786 

67-2335 

67-2337 

#67-2337 




67-2369 

#67-2369 

#67-2369 


1STS1 


000041 

#16-786 

67-2335 

#67-2335 

67-2337 

JtJMP 

z 

000167 

#16-786 




L ARE C 


005130 

37-1544 

#37-1547 



LA 2452 


030006 

121-4203 

#121-4213 



L A2A 3 5 


030176 

123-4239 

#123-4248 



L8U234 


025154 

109-3770 

#109-3775 



L B 1 2 1 1 


015366 

77-2618 

#77-2623 



i B2AU1 


030424 

127-4298 

127-4300 

#127-4305 


LB2432 


027762 

121-4205 

#121-4209 



L B2 A 3 3 


030152 

123-4241 

#123-4244 



LB2434 


030270 

1 2 5-4268 

#125-4271 



L C 2 A 3 


027402 

119-4100 

#119-4103 



LC2432 


030050 

121-4216 

#121-4220 



lDOO 


013742 

67-2361 

#67-2367 



L D 1 2 1 1 


015772 

77-2631 

#77-2680 



LEU234 


025204 

109-3780 

#109-3783 




SCO 125 


I 10 

( 


•73-2562 *73-2566 *73-2570 *73-2578 *77-2619 

*77-2678 *77-2680 79-2716 #79-2720 i 


#18-914 

#31-1369 

19-976 

#19-976 

37-1553 

#37-1553 

#151-4958 

151-4959 

#151-4959 

151-4964 

#151-4964 

#73-2544 

151-4959 

#73-2580 

151-4965 

#77-2614 

#151-4965 

#77-2682 

#87-3057 

67-2352 

#67-2352 

#67-2352 

67-2358 

#67-2358 

67-2358 

67-2381 

143-4738 

#143-4738 

#143-4738 


) 


J 10 


SEQ 1 26 


CNRXDA 

CREATED BY 

MACRO ON 15-DEC-82 AT 

13:51 

PAGE 17 






SYMBOL 

CROSS REFERENCE 




CREf V01 






SYMBOL 

value 


REFERENCES 









LE1?11 

01 5762 


77-2634 

#77-2678 








LF 

s 000012 

G 

#1 49-4882 
149-4893 

149-4885 

149-4886 

149-4887 

149-4888 

149-4897 

149-4889 

149-4890 

149-4891 

149-4892 


149-4894 

149-4895 

149-4896 

149-4898 

149-4899 

149-4900 

149-4901 




149-4902 

149-4903 

149-4904 

149-4905 

149-4906 

149-4907 

149-4908 

149-4909 

149-4910 




149-4911 

149-4912 








LfOO 

ouoio 


67-2377 

#67-2380 








LM1211 

01574.2 


77-2650 

#77-2674 




40-1700 




L 1NECT 

005656 


•38-1624 

*38-1634 

*38-1644 

40-1683 

*40-1699 

#40-1704 



LINES 

00564.0 


•38-1628 

*38-1638 

*38-1647 

40-1700 

#40-1 7 05 

*42-1715 

*42-1732 

42-1733 


L INTYP 

00564.2 


*38-1639 

*38-1648 

40-1684 

#40-1706 






L L 121 1 

015732 


77-2664 

#77-2672 








L 1 2A3 

027572 


119-4128 

#119-4141 



#83-2853 





LOAD 

017704 


83-2806 

83-2319 

83-2833 

83-2844 





LOE 

= 04.0000 

G 

#19-983 









logoff 

027622 


*119-4098 

#119-4151 

121-4189 

*121-4206 

*121-4209 

*121-4213 

•123-4246 

*123-4249 

127-4292 




127-4311 









LOT 

= 000010 

G 

#19-983 









LSACP 

002110 

G 

#16-829 









LSAPT 

002036 

G 

#16-829 









LlAU 

013562 

G 

16-829 

#64-2264 








LtAUT 

002070 

G 

#16-829 









LSAUTO 

012552 

G 

16-829 

#56-2091 








LtCCP 

002106 

G 

#16-829 









lSCLEA 

012522 

G 

16-829 

#54-2059 








LUO 

002032 

G 

#16-829 









LtDEPO 

002011 

G 

#16-829 

#16-837 








LSDESC 

002122 

G 

16-829 








LSDESP 

002076 

G 

#16-829 









LSDEVP 

002060 

G 

#16-829 









LSD I SP 

002154 

G 

16-829 

#16-848 








LSDlY 

002116 

G 

#16-829 









LSDTP 

002040 

G 

#16-829 









lsdtyp 

002034 

G 

#16-829 









lsdu 

013274 

G 

16-829 

#62-2212 








lsdut 

002072 

G 

#16-829 









LSDVTY 

002346 

G 

16-829 

#25-1209 








lsef 

002052 

G 

#16-829 









LSENVI 

002044 

G 

#16-829 









lserrt 

002374 

G 

16-829 

#27-1252 








lsetp 

002102 

G 

#16-829 









LSEXP1 

002046 

G 

#16-829 









LSEXP4 

002064 

G 

#16-829 









LSEXPS 

002066 

G 

#16-829 


#145-4799 







l Shard 

035012 

G 

16-829 

145-4799 







ISH1ME 

002120 

G 

#16-829 









LSHPCP 

002016 

G 

#16-829 









lShptp 

002022 

G 

#16-829 









LSHU 

002160 

G 

16-829 

18-866 

#18-866 







lSICP 

002104 

G 

#16-829 









lSINIT 

011250 

G 

16-829 

#50-1891 








LSlADP 

002026 

G 

#16-829 


151-4965 







LSL AST 

040454 

G 

16-829 

#151-4949 








K 10 


SEQ 1 27 


CNRXDA 

CREATED BY 

SYMBOL 

CROSS REFERENCE 

SYMBOL 

VALUE 


LtLOAD 

002100 

G 

LtLUN 

002074 

G 

LtMREV 

002050 

G 

LtNAME 

002000 

G 

LtPRIO 

002042 

G 

LtPROl 

011242 

G 

lspr t 

002112 

G 

HREPP 

002062 

G 

LtREV 

002010 

G 

LSRPT 

005140 

G 

LtSOFT 

035136 

G 

LSSPC 

002056 

G 

LtSPCP 

002020 

G 

LtSPTP 

002024 

G 

LtSTA 

002030 

G 

LSSU 

002172 

G 

UTEST 

002114 

G 

lstiml 

002014 

0 

LtUNJT 

002012 

G 

Li 0000 

002170 


LI 0001 

002220 


Li 0002 

004506 


L10003 

004514 


Li 0004 

005406 


Li 0006 

011602 


L10007 

012550 


Li 0010 

012772 


L 1 001 1 

013434 


L 1 001 2 

013562 


L 1 001 3 

035006 


L 1 001 4 

013664 


L 1 001 5 

013750 


Li 00 16 

035060 


L 1 001 7 

035400 


LI 0020 

040460 


L 1 002 1 

040474 


L10022 

040470 


Li 0024 

040504 


HAXSEC 

002214 


MAX TRK 

024234 


MCRDRT 

032321 


MCUTRT 

032270 


MDRDRT 

032213 


MDWTRT 

032134 


M1NSEC 

002212 


M1NTRK 

024232 


MRDRT 

032244 


MSG1 

035060 


MSGH 

037312 


MSG14 

037341 


MSG15 

037425 


MSG16 

037463 



MACRO ON 15-DEC-82 AT 


REFERENCES 

#16-829 

#16-829 

*27-1248 

#16-829 

#16-829 

#16-829 

16-829 

#48-1876 

#16-829 

#16-829 

#16-829 

16-829 

#38-1614 

16-829 

147-4840 

#16-829 

#16-829 

#16-829 

#16-829 

16-8.' 

18-891 

#16-82 . 
#16-825 
#16-829 

50-1909 

18-866 

#18-879 

18-891 

#18-912 

#31-1349 

#31-1369 

#38-1650 

#50-1935 

#54-2072 

#56-2132 

#62-2232 

#64-2272 

67-2381 

#143-4738 

#67-2352 

#67-2369 

145-4799 

145-4806 

147-4840 

147-4866 

#151-4953 



151-4953 #151-495? 
151-4953 #151-4958 
151-4959 #151-4964 
#18-902 99-3503 

*101-3570 101-3600 

133-4531 #133-4544 

133-4516 #133-4543 
133-4528 #133-4541 
133-4513 #133-4539 
#18-901 99-3485 

*101-3571 101-3580 

133-4534 #133-4542 
145-4801 #145-4815 

147-4846 #149-4915 
147-4847 #149-4916 
147-4849 #149-4918 
147-4850 #149-4919 


13:51 

*58-2161 


PAGE 18 
CREF V01 

*58-2163 


#147-4840 

#18-891 

50-1921 


#145-4813 

#147-4877 


99-3509 99-3514 

101-3607 101-3610 


99-3499 99-3500 

101-3602 101-3603 


*58-2165 


99-3516 

101-3615 


99-3501 

101-3615 


*79-2697 


#103-3628 

99-3503 

101-3618 


#103-3627 


I 10 


$£0 128 


CNRXDA CREATED BY MACRO ON 15-DEC-82 AT 
SYMBOL CROSS REFERENCE 


SYMBOL 

value 

REFERENCES 


MSG17 


037521 

147-4851 

#149-4920 

MSG18 


037557 

147-4853 

#149-4921 

MSG19 


037627 

147-4854 

#149-4922 

MSG2 


035073 

145-4802 

#145-4816 

MSG20 


037677 

147-4855 

#149-4923 

MSG21 


037747 

147-4856 

#149-4924 

MSG22 


040017 

147-4857 

#149-4925 

MSG23 


040055 

147-4859 

#149-4926 

MSG24 


040105 

147-4860 

#149-4927 

MSG25 


040135 

147-4861 

#149-4928 

MSG26 


040173 

147-4863 

#149-4929 

MSG27 


040220 

147-4864 

#149-4930 

MSG3 


035106 

145-4803 

#145-4817 

MSG4 


035121 

145-4804 

#145-4818 

MSG5 


035400 

147-4865 

#149-4883 

MSG6 


035432 

147-4842 

#149-4884 

MSG7 


035453 

147-4844 

#149-4885 

MSGS 


037263 

147-4845 

#149-4914 

MSG9 


037370 

147-4848 

#149-4917 

MSKRT 


032110 

133-4504 

#133-4538 

MUTRT 


032166 

133-4519 

#133-4540 

NEUTRK 


020572 

85-2923 

85-2931 

NOERL 


007374 

#48-1838 


NONE 


004506 G 

27-1247 

#31-1348 

NSEC 


023674 

99-3482 

#99-3544 

NXSCSA 


023656 

*99-3534 

#99-3537 

OD 


020650 

*69-2419 

*81-2751 

ODCOMP 


020524 

85-2983 

#85-2985 

COTFLG 

Z 

****** 

50-1893 

151-4966 

0NEF1L 

r 

000001 

#2-3 

16-807 

0TD1 TIC 


002206 

#18-899 

69-2419 

OTDVFN 


024406 

95-3401 

95-3438 

OTERTP 


030702 

87-3113 

#131-4382 

OTEXCM 


032444 

67-2365 

67-2367 

0 T SY£R 


032466 

67-2355 

67-2362 

OUTSUD 


025042 

107-3682 

107-3693 

OUPTS 

r 

OOOOOC 

#16-786 

16-829 

OtAU 

z 

000001 

#16-786 

#16-819 

0S8GNR 

z 

000001 

#16-786 

#16-819 

OSBGNS 

z 

000001 

#16-786 

#16-819 

OSOU 

z 

000001 

#16-786 

#16-819 

OSERRT 

= 

000001 

#16-786 

#16-819 

OtGNSU 

• 

000001 

#16-786 

#16-819 

OSPOIN 

- 

000001 

#16-786 

#16-819 




16-829 


OSSETU 

z 

000001 

#16-786 

#16-819 

PAR 


006026 

*40-1666 

*40-1683 

PAT 


017750 

*81-2748 

83-2784 

PATCH 


040246 

#151-4937 


PAT125 


017622 

83-2801 

#83-2832 

PAT333 


017646 

83-2802 

#83-2839 

PG 


017524 

#83-2806 

83-2809 


13:51 PAGE 19 

CREf V01 


85-2950 

85-2965 

85-2977 

85-2994 

79-2695 




85-2888 

85-2892 

#85-3012 


18-915 

81-2751 

#107-3676 

19-916 

95-3359 

19-929 

95-3370 

37-1555 

101-3571 

#137-4576 

#139-4586 

107-3701 

107-3711 

107-3716 

107-3721 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

#16-819 

#16-819 

#16-819 

#16-819 

16-829 

*40-1691 

*83-2786 

151-4949 

44-1744 

83-2787 

#44-1747 

#83-2866 


83-2812 





#85-2996 


38-1556 38-1569 


107-3730 #107-3751 


#16-819 #16-819 


145-4754 


16-819 



CNRXDA CREATED BY MA.RO ON 15-DEC-82 AT 13:51 
SYMBOL CROSS REFERENCE 


SYMBOL 

PLOC 

VALUE 

011604 


REFERENCES 

•50-1923 

#50-1956 

52-1968 

PNT 

= 

001000 

G 

#19-983 



POWER F 

z 

000001 

G 

#19-1065 

50-1900 

69-2393 

PREPT1 


006002 


40-1668 

40-1685 

40-1695 

PREPT2 


006030 


40-1661 

40-1688 

Mu 4-1756 

PREPT3 


006050 


42-1727 

#44-1766 


PRESCK 


020536 


85-2986 

#85-2988 


prestk 


020642 


*85-2885 

*85-2887 

85-2917 

PR i 

z 

002000 

G 

#19-983 



PR1DXX 


006360 


38-1627 

#46-1786 


PR1D01 


006426 


46-1786 

#46-1808 


PR1D02 


006455 


46-1787 

#46-1809 


PR1D03 


006504 


46-1788 

#46-1810 


PR1D04 


006533 


46-1789 

#46-1811 


PR1D05 


006562 


46-1790 

#46-1812 


PR1D06 


00661 1 


46-1791 

#46-1813 


PRID07 


006640 


46-1792 

#46-1814 


PRID08 


006667 


46-1793 

#46-1815 


PRID09 


006716 


46-1794 

#46-1816 


PR1D10 


006745 


46-1795 

#46-1817 


PPID11 


006774 


46-1796 

#46-1818 


PRID12 


007023 


46-1797 

#46-1819 


PR1D13 


007052 


46-1798 

#46-1820 


PRID14 


007101 


46-1 799 

#46-1821 


PR I D 1 5 


007130 


46-1800 

#46-1822 


PRI016 


007157 


46-1801 

#46-1823 


PRID17 


007206 


46-1802 

#46-1824 


PRID18 


007235 


46-1803 

#46-1825 


PR I D 1 9 


007264 


46-1804 

#46-1826 


PR 100 

= 

000000 

G 

#19-983 

#19-1051 

109-3766 

PR 101 

z 

000040 

G 

#19-983 

#19-1050 


PRI02 

z 

000100 

G 

#19-983 

#19-1049 


PRI03 

z 

000140 

G 

#19-983 

#19-1048 


PR 104 

z 

000200 

G 

#19-983 

#19-1047 


PR 105 

z 

000240 

G 

#19-983 

#19-1046 

50-1931 

PR 106 

z 

000300 

G 

#19-983 

#19-1045 

PRI07 

z 

000340 

G 

#19-983 

#19-1044 


PRNUH 


005644 


•38-1625 

*38-1635 

*38-1645 

PRTBOS 


004516 


#31-1371 

71-2499 

79-2717 

PRT81 


004510 

G 

#31-1367 

58-2168 


PRTB1S 


004536 


31-1368 

#31-1374 

77-2654 

PRTCTR 


005646 


38-1619 

#42-1714 


PRTDAT 


005510 


38-1629 

38-1640 

38-1649 

PRTECO 


002272 


#21-1116 

27-1258 

*27-1262 

PRTERR 


002404 


#27-1257 

77-2676 

131-4427 

PRTHDR 


005414 


38-1618 

38-1622 

38-1632 

PRT1 


005504 


*38-1616 

*38-1620 

*38-1630 

PRT2 


005506 


*38-1617 

*38-1621 

*38-1631 

PTDAT1 


006243 


40-1694 

#44-1775 


PTEC 


006200 


38-1630 

#44-1773 

#44-1779 

PTECN 


006327 


38-1637 

38-1639 

PTFMNl 


006315 


42-1726 

#44-1778 



PAGE 20 
CREF V01 

42-1718 

85-2925 


50-1934 

40-1681 


79-2715 

#40-1680 
• 37-1 534 
139-4626 
38-1643 
•38-1641 
*38-1642 


M 10 


SEO 129 


#44-1744 

85-2969 85-2988 *85-3002 #85-3009 


58-2155 109-3784 

#40-1707 

133-4535 

#40-1659 

40-1660 #40-1674 

40-1667 #40-1675 



N 10 


SEO 130 


CNRXDA 

CREATED BY 

MACRO ON 1 5-DEC-82 »'T 

13:51 

PAGE 21 







SYMBOL 

CROSS REFERENCE 




CREF V01 






l 

SYMBOL 

PTMEAD 

VALUE 

026062 


113-3879 

*113-3881 

#113-3912 






1 

PTRDSC 

006116 

42-171? 

#44-1771 








I 

PTRTY 

031676 

131-4433 

#133-4498 








F 

PTTK 

006225 

38-1641 

#44-1774 








1 

PTTKN 

006343 

38-1648 

#44-1780 








» 

PTUNT1 

006253 

38-1621 

38-1631 

38-1642 

#44-1776 







PTUNT2 

006274 

38-1617 

#44-1777 









PTUTSC 

006147 

42-1736 

#44-1772 









PT19SP 

006105 

38-1620 

#44-1770 









PT20SP 

006074 

38-1616 

#44-1769 









RANDAT 

017656 

83-2803 

#83-2842 

'83-2847 








RANGEN 

004560 

#33-1460 

83-2842 

85-2980 








RANUM 

004652 

*33-1475 

#33-1480 

83-2843 

*85-2981 

85-2982 

85-2985 

85-2988 

85-2990 



RANI 

004646 

33-1461 

*33-1467 

33-1472 

#33-1478 







RAN2 

004650 

33-1462 

33-1469 

*33-1474 

#33-1479 







RD 

007454 

#48-1844 










RDERCD 

005026 

#37-1532 

77-2669 

115-4026 



*77-2647 


*107-3679 

*107-3690 


RDYUO 

025330 

*37-1541 

*71-2443 

*71-2452 

*71-2480 

*73-2558 

*77-2656 


*107-3699 

*107-3707 

*107-3714 

*107-3718 

*107-3727 

107-3753 

*107-3753 

107-3755 

109-3796 




109-3800 

#109-3814 

*115-3930 

*115-3952 







READRT 

002324 

#21-1131 

133-4533 






*125-4282 



READSC 

007314 

42-1716 

#48-1834 

85-3023 

*125-4274 

*125-4276 

*125-4278 

*125-4280 



RECCMD 

005136 

*37-1535 

*37-1536 

37-1537 

#37-1550 



77-2645 

77-2667 


F 

REFCMD 

015264 

#75-2596 

*77-2621 

*77-2629 

*77-2636 

*77-2639 

*77-2644 



REFDRV 

015306 

73-2583 

#77-2611 









REPORT 

005140 

#38-1615 










RESTAR 

= 000002 G 

#19-1064 

50-1913 






*95-3361 


F 

RESTK 

021450 

*87-3071 

*87-3072 

*87-3082 

*87-3083 

#87-3133 

95-3354 

95-3356 

*89-3208 

F 

RETRY 

002304 

#21-1123 

*67-2341 

89-3153 

89-3194 

89-3196 

89-3199 

*89-3202 

89-3205 

f 

*89-3215 

95-3384 

95-3390 

*95-3403 

*119-4139 

*127-4302 

*127-4308 

133-4499 

133-4501 




133-4506 

133-4508 

133-4510 

133-4521 

133-4523 

133-4525 


*123-4248 

127-4302 


RTMASK 

030474 

*121-4210 

*121-4217 

*121-4218 

*121-4220 

*121-4221 

*123-4242 

*123-4244 


127-4308 

#127-4318 



*123-4235 

*123-4245 

127-4293 




RTOFF 

027624 

#119-4152 

*121-4207 

*121-4211 

*121-4214 

77-2640 

95-3347 

F 

RXXX 

002172 

#18-893 

52-1987 

56-2105 

71-2466 

71-2471 

71-2516 

73-2572 



105-3652 

117-4044 









RX2BIT 

= 004000 G 

#19-1057 

73-2568 









RYDLY 

025326 

109-3799 

#109-3813 



#109-3812 





F 

RYOX 

025324 

77-2657 

* 7''— 2658 

*77-2660 

109-3798 






SAVDLY 

016014 

*77-2657 

7'-2660 

#77-2686 


*99-3531 

#99-3538 





SCPSCT 

023o60 

99-3488 

*99-3502 

*99-3513 

*99-3521 





SCSYEX 

020676 

67-2359 

#87-3037 


*87-3080 

137-4577 






SOD 

002230 

#21-1097 

*62-2229 

*67-2342 





f 

SECAOR 

025040 

•95-3436 

95-3440 

107-3708 

#107-3742 

*99-3533 






SEC ON 

002262 

#21-1111 

89-3164 

*95-3360 

95-3412 






SECTOR 

002256 

#21-1109 

*95-3440 

113-3882 


#97-3458 






SEEK 

023322 

*95-3395 

*95-3402 

*95-3419 

*95-3421 






SEEKCK 

026046 

*113-3842 

*113-3872 

113-3889 

#113-3906 







SEfKRT 

002306 

#21-1124 

119-4132 

127-4294 

133-4503 







SEK 

007424 

#48-1841 

127-4312 


*85-2903 

85-2904 

#85-3014 





SEOUEN 

020654 

•81-2750 

*85-2899 

85-2901 





SEQ1 

020164 

85-2909 

#85-2917 

85-2938 







1 


CNR X DA 

CREATED BY 

MACRO ON 15-DEC-82 AT 

13:51 

PAGE 22 






SYMBOL 

CROSS REFERENCE 




CREF V01 






SYMBOL 

VALUE 

REFERENCES 









SEQ2 

020220 

85-2910 

#85-2925 

85-2936 







SEQ3 

020254 

85-2911 

#85-2933 








SEQ4 

0*0272 

85-2912 

#85-2940 








SEQ5 

020340 

85-2913 

#85-2952 








SEQ6 

020422 

85-2914 

#85-2967 








SEQ7 

020476 

85-2915 

#85-2979 

85-2984 

85-2987 

85-2989 





SETUP 

011364 

50-1912 

#50-1914 








SE1 

033416 

139-4598 

#141-4652 








SFERLG 

030344 

121-4212 

121-4222 

123-4250 

#127-4292 






SFERR 

021446 

*87-3047 

•87-3119 

#87-3132 







SFPT6L 

002172 G 

#18-891 









SFTSTS 

033552 

27-1261 

#143-4718 








SOFT 

= 000003 G 

#19-1058 

131-4408 








SSEC 

023664 

99-3474 

99-3479 

#99-3540 







STCNTR 

027616 

*119-4082 

119-4089 

*119-4104 

119-4105 

#119-4149 





STDVDN 

032352 

87-3063 

#135-4552 








STERRG 

02^614 

*119-4081 

119-4083 

*119-4085 

*119-4087 

#119-4148 





STKSEQ 

017752 

81-2753 

#85-2884 








STSCDN 

023712 

99-3519 

99-3530 

#99-3558 







STSCFG 

023662 

99-3490 

*99-3492 

*99-3526 

#99-3539 






STSTPA 

017376 

81-2749 

#83-2782 








SUM 

017744 

*83-2783 

*83-2853 

83-2858 

*83-2859 

83-2860 

#83-2864 




SUT 

002232 

#21-1098 

*50-1908 

*52-1994 

*52-1997 

*52-2003 

*52-2006 

*52-2017 

*52-2020 

*52-2025 



*52-2028 

*62-2228 

*71-2468 

*71-2470 

71-2474 

*71-2495 

71-2496 

73-2542 

77-2611 



87-3048 

93-3314 

93-3324 

137-4577 






SUTCV 

004754 

*35-1488 

*35-1493 

*35-1495 

*35-1499 

*35-1501 

#35-1505 

62-2227 



SUTORP 

013440 

*62-2227 

62-2228 

62-2229 

#62-2235 

*79-2705 





SUTPOS 

015302 

*71-2461 

*71-2485 

73-2542 

*73-2584 

#75-2603 

77-2611 

79-2705 



SUTPTR 

021426 

35-1511 

*67-2350 

87-3048 

*87-3053 

87-3054 

*87-3081 

*87-3118 

#87-3124 


SVCGBL 

= 000000 

#16-786 

#16-795 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-82" 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-82? 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-629 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-837 



16-837 

16-837 

16-848 

16-848 

16-848 

18-866 

18-866 

18-866 

18-866 



18-866 

18-866 

18-891 

18-891 

18-891 

18-891 

18-891 

18-891 

25-1209 



25-1209 

25-1209 

27-1252 

27-1252 

27-1252 

31-1348 

31-1348 

31-1348 

31-1367 



31-1367 

31-1367 

38-1614 

38-1614 

38-1614 

48-1876 

48-1876 

48-1876 

50-1891 



50-1891 

50-1891 

54-2059 

54-2059 

54-2059 

56-2091 

56-2091 

56-2091 

62-2212 



62-2212 

62-2212 

64-2264 

64-2264 

64-2264 

145-4799 

145-4799 

145-4799 

147-4840 



147-4840 

147-4840 

#151-4949 

151-4949 

151-4949 

151-4949 




SVC INS 

= 177777 

#16-786 

#16-792 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-329 

16-829 

16-829 

16-829 

16-829 


SEO IV 


C 11 


CNRXDA 

CREATED BY 

MACRO ON 15 
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SYMBOL 

CROSS REFERENCE 




CREF V01 






SYMBOL 

VAl UE 

REFERENCES 











16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 



16-829 

16-829 

16-829 

16-829 

16-837 

16-837 

16-848 

16-848 

18-866 



18-891 

25-1209 

25-1209 

27-1249 

27-1257 

27-1257 

27-1257 

27-1257 

27-1257 



27-1257 

27-1257 

27-1257 

27-1257 

27-1260 

27-1260 

27-1260 

27-1260 

27-1260 



27-1260 

27-1260 

27-1260 

27-1260 

27-1260 

27-1260 

27-1260 

27-1260 

27-1261 



27-1261 

27-1261 

27-1261 

27-1261 

27-1261 

27-1261 

27-1261 

27-1261 

27-1261 



27-1261 

27-1261 

27-1261 

29-1289 

29-1289 

29-1289 

29-1289 

29-1289 

31-1349 



31-1369 

31-1371 

31-1371 

31-1371 

31-1371 

31-1371 

31-1374 

31-1374 

31-1374 



31-1374 

31-1374 

31-1374 

38-1650 

44-1744 

44-1744 

44-1744 

44-1744 

44-1744 



44-1744 

44-1756 

44-1756 

44-1756 

44-1756 

44-1756 

44-1766 

44-1766 

44-1766 



44-1766 

44-1766 

44-1766 

44-1766 

50-1897 

50-1897 

50-1898 

50-1898 

50-1899 



50-1902 

50-1902 

50-1903 

50-1911 

50-1911 

50-1912 

50-1923 

50-1923 

50-1923 



50-1924 

50-1928 

50-1928 

50-1928 

50-1928 

50-1928 

50-1930 

50-1931 

50-1931 



50-1931 

50-1931 

50-1931 

50-1931 

50-1934 

50-1934 

50-1934 

50-1934 

50-1934 



50-1934 

50-1935 

52-2037 

52-2037 

52-2037 

52-2037 

52-2037 

52-2037 

52-2038 



52-2040 

52-2040 

52-2040 

52-2040 

52-2040 

52-2040 

54-2067 

54-2067 

54-2070 



54-2070 

54-2071 

54-2072 

56-2101 

56-2101 

56-2104 

56-2104 

56-2110 

56-2110 



56-2113 

56-2113 

56-2124 

56-2124 

56-2127 

56-2127 

56-2130 

56-2132 

58-2155 



58-2155 

58-2155 

58-2155 

58-2155 

58-2155 

58-2157 

58-2157 

58-2170 

62-2222 



62-2222 

62-2222 

62-2222 

62-2222 

62-2222 

62-2230 

62-2230 

62-2230 

62-2230 



62-2230 

62-2230 

62-2232 

64-2272 

67-2337 

67-2352 

67-2358 

67-2368 

67-2369 



67-2378 

67-2380 

67-2381 

67-2381 

71-2441 

73-2544 

73-2580 

77-2614 

77-2630 



77-2631 

77-2632 

77-2632 

77-2632 

77-2632 

77-2632 

77-2632 

77-2682 

79-2698 



79-2706 

79-2706 

87-3057 

87-3116 

89-3150 

89-3151 

95-3381 

95-3382 

109-3766 



109-3766 

109-3784 

109-3784 

113-3882 

113-3882 

113-3882 

113-3882 

113-3882 

113-3882 



113-3882 

113-3882 

113-3883 

113-3883 

113-3883 

113-3883 

113-3883 

113-3883 

113-3883 



113-3883 

113-3883 

113-3883 

143-4738 

145-4799 

145-4801 

145-4801 

145-4801 

145-4801 



145-4802 

145-4802 

145-4802 

145-4802 

145-4803 

145-4803 

145-4803 

145-4803 

145-4803 



145-4804 

145-4804 

145-4804 

145-4804 

145-4804 

145-4806 

145-4813 

147-4840 

147-4842 



147-4842 

147-4842 

147-4843 

147-4844 

147-4844 

147-4844 

147-4845 

147-4845 

147-4845 



147-4845 

147-4845 

147-4846 

147-4846 

147-4846 

147-4846 

147-4846 

147-4847 

147-4847 



147-4847 

147-4847 

147-4847 

147-4848 

147-4848 

147-4848 

147-4848 

147-4848 

147-4849 



147-4849 

147-4849 

147-4850 

147-4850 

147-4850 

147-4851 

147-4851 

147-4851 

147-4852 



147-4853 

147-4853 

147-4853 

147-4854 

147-4854 

147-4854 

147-4855 

147-4855 

147-4855 



147-4856 

147-4856 

147-4856 

147-485 7 

147-4857 

147-4857 

147-4858 

147-4859 

147-4859 



147-4859 

147-4859 

147-4859 

147-4860 

147-4860 

147-4860 

147-4860 

147-4860 

147-4861 



147-4861 

147-4861 

147-4862 

147-4863 

147-4863 

147-4863 

147-4863 

147-4863 

147-4864 



147-4864 

147-4864 

147-4864 

147-4864 

147-4865 

147-4865 

K7-4865 

147-4866 

147-4877 



151-4949 

151-4949 

151-4949 

151-4953 

151-4953 

151-4959 

151-4959 



SVC SUB 

= 177777 

#16-786 

#16-794 

67-2337 

67-2337 

67-2337 

67-2358 

67-2358 

67-2358 


SVC TAG 

= 177777 

#16-786 

#16-796 

18-879 

18-879 

18-879 

18-912 

18-912 

18-912 

31-1349 



31-1349 

31-1349 

31-1369 

31-1369 

31-1369 

38-1650 

38-1650 

38-1650 

50-1935 



50-1935 

50-1935 

54-2072 

54-2072 

54-2072 

56-2132 

56-2132 

56-2132 

62-2232 



62-2232 

62-2232 

64-2272 

64-2272 

64-2272 

67-2352 

67-2352 

67-2352 

67-2369 



67-2369 

67-2369 

73-2580 

73-2580 

73-2580 

77-2632 

77-2632 

77-2632 

77-2682 



77-2682 

77-2682 

87-3116 

87-3116 

87-3116 

143-4738 

143-4738 

143-4738 

145-4813 



145-4813 

145-4813 

147-4877 

147-4877 

147-4877 

151-4953 

151-4953 

151-4953 

151-4958 



151-4958 

151-4958 

151-4959 

151-4959 

151-4959 

151-4964 

151-4964 

151-4964 


SVCTST 

= 177777 

#16-786 

#16-793 

67-2335 

67-2335 

67-2335 





SVUTRG 

035516 

143-4688 

143-4695 

#143-4701 







SUREG 

002204 

#18-898 

67-2374 

69-2396 

69-2414 

69-2421 

69-2426 

77-2615 

81 —2756 

•81-2758 
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SYMBOL 

CROSS REFERENCE 




CREF V01 






SYMBOL 

value 

REFERENCES 

89-3155 

95-3386 

95-3393 

113-3875 

127-4295 





SYf T 

= OOOOOO G 

#19-1061 

139-4623 








SYSERR 

= 004000 G 

#19-1066 

60-2193 








SYSEIO 

033 i 22 

#141-464? 

141-4658 








SYSE11 

033151 

#141-4643 

141-4659 








SYSE 1 2 

033161 

#141-4644 

141-4660 








SYSE1 3 

033171 

#141-4645 

141-4661 








sysek 

033225 

#141-4646 

141-4662 








SYSE 1 5 

033242 

#141-4647 

141-4663 








SYSE16 

033302 

#141-4648 

141-4664 








S*SE4 

032700 

#141-4636 

141-4652 








SYSES 

032733 

#141-4637 

141-4653 








SYSE6 

032764 

#141-4638 

141-4654 








SYSE 7 

033010 

#141-4639 

141-4655 








SYSES 

033033 

#141-4640 

141-4656 








SYSE9 

033072 

#141-4641 

141-4657 







#56-2132 

StLSYM 

-- 010000 

#16-786 

#18-879 

#18-912 

#31-1349 

#31-1369 

#38-1650 

#50-1935 

#54-2072 

#62-2232 

#64-2272 

#67-2352 

#67-2369 

73-2544 

73-2544 

#73-2544 

77-2614 

77-2614 



#77-2614 

77-2632 

77-2632 

77-2632 

#77-2632 

87-3057 

87-3057 

#87-3057 

#143-4738 



#145-4813 

#147-4877 








TARGE T 

020640 

*85-2886 

*85-2888 

*85-2919 

•85-2921 

•85-2927 

*85-2929 

*85-2942 

*85-2945 

•85-2949 


*85-2957 

*85-2961 

*85-2964 

*85-2971 

*85-2974 

•85-2976 

•85-2990 

•85-2993 

85-2999 



85-3000 

85-3002 

#85-3008 





*89-3218 

#89-3231 

TBPRU 

022160 

•89-3162 

89-3166 

*89-3169 

89-3186 

•89-3188 

*89-3191 

•89-3216 

THA234 

024464 

107-3684 

#107-3686 








THA2S 

030756 

131-4391 

#131-4398 








THA40 

032544 

139-4599 

#139-4605 








THB231 

023514 

#99-3505 









THC13 

017366 

81-2755 

#81-2759 








THD23 

C 22772 

95-3394 

#95-3397 








THE22 

022440 

93-3318 

#93-3326 








THE 2 34 

024754 

#107-3725 









THE 231 

023560 

99-3489 

#99-3518 








T HE 241 

025624 

113-3874 

#113-3877 


#85-3006 






tktbpt 

020634 

*85-2884 

•85-2997 

85-2998 






utl 

024242 

101-3575 

101-3586 

#103-3631 







Tic XX 

010070 

38-1646 

#48-1856 

119-4124 

119-4120 






TRACK 

002254 

#21-1108 

*9‘.-3439 

113-3882 






TRAP 

015260 

58-2155 

#60-2193 





107-3714 

107-3718 

107-3727 

TRBIT 

= 000200 G 

#19-1055 

37-1541 

77-2647 

107-3690 

107-3699 

107-3707 

TRKADR 

025036 

*95-3435 

95-3439 

107-3712 

#107-3741 

*85-2991 

#85-3007 




TRKCNT 

020636 

•85-2893 

*85-2894 

*85-2895 

*85-2947 




TRICON 

002260 

#21-1110 

89-3173 

*89-3175 

*101-3619 

101-3619 

#103-3626 




TRlCDNF 

024230 

•101-3583 

*101-3597 

*101-3612 

*101-3617 




TRKINC 

024236 

•95-3416 

101-3584 

*101-3620 

#103-3629 






TRKSEQ 

002202 

#18-897 

81-2750 

85-2899 







TRKTBL 

033554 

85-2996 

101-3589 

#143-4724 







TRPMS1 

013144 

58-2160 

#58-2174 


89-3213 

#89-3232 





TSAVCT 

022162 

•89-3203 

•89-3209 

*89-3211 





TSEC 

033551 

27-1261 

#143-4717 



87-3101 

87-3105 

#87-3122 



1ST 

021422 

•87-3060 

87-3061 

87-3064 

87-3073 



TSTCK 

027626 

•111-3830 

119-4073 

#119-4153 

121-4202 

121-4215 

1 23-4240 






CNRXDA CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
TSTEV 025410 

TSTN 002176 

T ST PAT 002200 

TSTPTR 022152 

T ST SUT 022502 

TSTUD 022156 

TTRk 033550 

TtARGC = 000004 


TtCODE = 001004 


TSERRN = 000000 
TtEXCP = 000000 


MACRO ON 1 5-DEC-82 AT 13:51 


REFERENCES 
*87-3103 
1 1 5-4C02 
#18-895 
#18-896 
*89-3149 
*89-3207 
*93-3311 
87-306C 
27-1261 
#16-829 
16-829 
16-829 
#27-1257 
#27-1260 
#27-1261 
27-1261 
31-1374 
#44-1756 
44-1766 
#52-2040 
62-2222 
113-3882 
113-3883 
#77-2632 
145-4801 
#145-4803 
145-4804 
145-4806 
#147-4843 
147-4843 
#147-4845 
147-4846 
#147-4848 
147-4849 
#147-4851 
147-4852 
#147-4853 
147-4855 
#147-4856 
147-4858 
#147-4859 
147-4860 
#147-4862 
147-4862 
#147-4864 
147-4865 
#147-4866 
#16-786 
#145-4801 
147-4845 
#147-4860 
#67-2381 


PAGE 25 
CREF V01 


111-3823 

117-4040 

87-3058 

81-2748 

89-3159 

*89-3212 

*93-3313 

89-3171 

#143-4716 

16-829 

16-829 

16-829 

27-1257 

27-1260 

27-1261 

27-1261 

#31-1374 

44-1756 

#50-1928 

52-2040 

#62-2230 

#113-3882 

#113-3883 

77-2632 

#145-4801 

145-4803 

#145-4804 

#145-4806 

147-4843 

#147-4844 

147-4845 

#147-4847 

147-4848 

#147-4850 

147-4851 

#147-4852 

147-4853 

#147-4855 

147-4856 

147-4658 

147-4859 

#147-4860 

147-4862 

#147-4863 

147-4864 

#147-4866 

147-4866 

145-4801 

#147-4846 

147-4860 

#67-2381 


111-3825 111-3827 


*89-3161 

89-3219 

93-3314 

89-3178 

#16-829 

#16-829 

#16-829 

#27-1257 

#27-1260 

#27-1261 

#29-1289 

31-1374 

44-1756 

50-1928 

#52-2040 

62-2230 

113-3882 

113-3883 

#77-2632 

145-4801 

#145-4803 

145-4804 

145-4806 

147-4843 

147-4844 

#147-4845 

147-4847 

#147-4848 

147-4850 

#147-4851 

147-4852 

#147-4854 

147-4855 

#147-4857 

#147-4858 

#147-4859 

147-4860 

147-4862 

147-4863 

#147-4864 

147-4866 


#145-4802 

147-4846 

#147-4863 

67-2381 


*89-3168 

*89-3224 

*93-3321 

89-3180 

16-829 

16-829 

16-829 

27-1257 

27-1260 

27-1261 

29-1289 

31-1374 

#44-1766 

50-1928 

52-2040 

#62-2230 

#113-3882 

#113-3883 

77-2632 

#145-4802 

145-4803 

#145-4806 

#147-4842 

#147-4843 

#147-4844 

147-4845 

#147-4847 

147-4848 

#147-4850 

147-4851 

#147-4852 

147-4854 

#147-4855 

147-4857 

147-4858 

147-4859 

#147-4861 

#147-4862 

#147-4863 

147-4864 

147-4866 


145-4802 

#147-4847 

147-4863 

67-2381 


T IF LAG = 000041 


SEQ 134 




CNRXDA 


CREATED BY 

MACRO ON 15-DEC-82 AT 

13.51 

PAGE 26 

SYMBOL 

CROSS REFERENCE 




CREF V01 

SYMBOL 

VALUE 

REFERENCES 

147-4866 




TtfREE 

z 

040504 

151-4949 

#151-4965 



f ISM AN 

s 

000000 

#16-786 




T1H1L1 

z 

000052 

#145-4801 

145-4801 

#145-4802 

145-4802 

#147-4847 




147-4845 

#147-4846 

147-4846 




#147-4860 

147-4860 

#147-4863 

147-4863 

TtLAST 

z 

000001 

#16-786 

#151-4949 

151-4952 


TtLOLl 

z 

000001 

#145-4801 

145-4801 

#145-4802 

145-4802 




147-4845 

#147-4846 

147-4846 

#147-4847 




#147-4860 

147-4860 

#147-4863 

147-4863 

TSLSYM 

z 

010000 

#16-786 

16-786 

18-879 

18-912 




56-2132 

62-2232 

64-2272 

67-2352 

TtLTNO 

z 

000001 

#151-4949 




TtNEST 

z 

17 7777 

#16-786 

16-812 

#16-812 

16-812 




18-879 

#18-879 

18-891 

#18-891 




18-914 

18-914 

18-914 

#18-914 




31-1348 

31-1349 

31-1349 

31-1349 




31-1369 

31-1369 

#31-1369 

37-1553 




38-1606 

38-1614 

#38-1614 

38-1614 




#48-1876 

48-1876 

48-1880 

48-1880 




50-1935 

50-1935 

50-1935 

#50-1935 




54-2072 

#54-2072 

56-2091 

#56-2091 




62-2212 

#62-2212 

62-2212 

62-2232 




64-2264 

64-2272 

64-2272 

64-2272 




#67-2337 

67-2337 

67-2352 

67-2352 




67-2369 

67-2369 

67-2369 

#67-2369 




73-2580 

#73-2580 

77-2614 

#77-2614 




87-3057 

#87-3057 

87-3057 

87-3116 




143-4738 

#143-4738 

145-4799 

#145-4799 




145-4813 

#145-4813 

147-4840 

#147-4840 




147-4866 

#151-4950 

147-4866 

147-4877 

147-4877 

TtNSO 

z 

000000 

#16-812 

18-914 

#19-976 

37-1553 

TtNSI 

z 

000005 

#18-866 

18-879 

#18-891 

18-912 




38-1650 

#48-1876 

48-1880 

#50-1891 




#62-2212 

62-2232 

#64-2264 

64-2272 




145-4813 

#147-4840 

147-4843 

14* 485? 

TINS? 

z 

000003 

#67-2337 

67-2352 

#67-2358 

67-2369 




87-3116 



151-4953 

TSPCNT 

z 

000000 

#151-4952 

151-4953 

#151-4953 

TSPTAB 

z 

010023 

#151-4953 

151-4953 

151-4953 

#151-4959 

TtPTHV 

z 

000002 

16-829 

#151-4063 


151-4959 

TtPTNU 

z 

000002 

#16-786 

151-4953 

#151-4953 

TtSAVL 

z 

1^7777 

#16-786 




TtSEGL 

z 

177777 

#16-786 

73-2544 

#73-2544 

73-2544 




7/-2614 

#77-2614 

77-2614 

77-2682 




#87-3057 

87-3057 

87-3116 

87-3116 

TSSEKO 

z 

010003 

#73-2544 

73-2580 

#77-2614 

77-2682 

TiSIZE 

z 

000014 

151-4949 

#151-4965 



TtSUBN 

z 

000002 

#16-786 

#67-2355 

67-2337 

#67-2337 

TITAGL 

z 

177777 

#16-786 




TSTAGN 

- 

010025 

#16-786 

18-866 

18-866 

#18-866 


F 11 

SEQ 1 35 


#145-4803 

145-4803 

#145-4804 

145-4804 

#147-4845 

147-4847 

#147-4848 

147-4848 

#147-4859 

147-4859 

#147-4864 

147-4864 




#145-4803 

145-4803 

#145-4804 

145-4804 

#147-4845 

147-4847 

#147-4848 

147-4848 

#147-4859 

147-4859 

#147-4864 

147-4864 




31-1349 

31-1369 

38-1650 

50-1935 

54-2072 

67-2369 

143-4738 

145-4813 

147-4877 


18-866 

#18-866 

18-866 

18-879 

18-879 

18-891 

18-912 

18-912 

18-912 

#18-912 

19-976 

#19-976 

19-976 

31-1348 

#31-1348 

#31-1349 

31-1367 

#31-1367 

31-1367 

31-1369 

37-1553 

37-1553 

#37-1553 

38-1606 

#38-1606 

38-1650 

38-1650 

38-1650 

#38-1650 

48-1876 

48-1880 

#48-1880 

50-1891 

#50-1891 

50-1891 

54-2059 

#54-2059 

54-2059 

54-2072 

54-2072 

56-2091 

56-2132 

56-2132 

56-2132 

#56-2132 

62-2232 

62-2232 

#62-2232 

64-2264 

#64-2264 

#64-2272 

67-2335 

#67-2335 

67-2335 

67-2337 

67-2352 

#67-2352 

67-2358 

#67-2358 

67-2358 

73-2544 

#73-2544 

73-2544 

73-2580 

73-2580 

77-2614 

77-2682 

77-2682 

77-2682 

#77-2682 

87-3116 

87-3116 

#87-3116 

143-4738 

143-4738 

145-4799 

145-4806 

145-4806 

145-4813 

145-4813 

147-4840 

147-4843 

147-4852 

147-4858 

147-4862 

147-4877 

#147-4877 

151-4950 

151-4950 

151-4950 

#38-1606 

151-4950 




#31-1348 

31-1349 

#31-1367 

31-1369 

#38-1614 

50-1935 

#54-2059 

54-2072 

#56-2091 

56-2132 

#67-2335 

143-4738 

#145-4799 

145-4806 

145-4806 

147-4858 

147-4862 

147-4866 

147-4866 

147-4877 

#73-2544 

73-2580 

#77-2614 

77-2682 

#87-3057 

151-4959 

#151-4959 

151-4959 



151-4959 





#151-4959 

151-4965 

151-4965 



73-2580 

73-2580 

73-2580 

#73-2580 

73-2580 

77-2682 

77-2682 

#77-2682 

77-2682 

87-3057 

87-3116 

#87-3116 

87-3116 



#87-3057 

87-3116 




67-2337 

67-2358 

#67-2358 

67-2358 


18-891 

18-891 

#18-891 

31-1348 

31-1548 



CNRXDA CREA'ED BY MACRO ON 15-DEC-82 AT 13:51 RAGE 27 
SYMBOL CROSS REFERENCE CRE F vOl 

SYMBOL VALUE REFERENCES 

#31-1348 31-1367 31-1367 #31-1367 

#48-1876 50-1891 50-1891 #50-1891 

2212 62-2212 #62-2212 

2337 67-2337 #67-2337 

-4840 147-4840 #147-4840 

#151-4953 151-4953 151-4953 #151-4953 

#151-4959 

TSTEMH = 000000 #16-848 16-848 16-848 #16-848 

18-914 #31-1349 31-1349 #31-1369 

#48-1880 48-1880 #50-1935 50-1935 

62-2232 #64-2272 64-2272 #67-2352 

#73-2580 73-2580 #77-2632 77-2632 

77-268? #87-3116 87-3116 #143-4738 

#145-4801 145-4801 #145-4802 145-4802 

145-4803 #145-4803 145-4803 #145-4803 

#145-4804 145-4804 #145-4806 145-4806 

147-4842 #147-4842 147-4842 #147-4844 

#147-4845 147-4845 #147-4845 147-4845 

147-4846 #147-4846 147-4846 #147-4847 

#147-4848 147-4848 #147-4848 147-4848 

147-4849 #147-4849 147-4849 #147-4850 

#147-4851 147-4851 #147-4851 147-4851 

147-4853 #147-4853 147-4853 #147-4854 

#147-4855 147-4855 #147-4855 147-4855 

147-4856 #14^-4856 147-4856 #147-4857 

#147-4859 147-4859 #147-4859 147-4859 

147-4860 #147-4860 147-4860 #147-4861 

#147-4863 147-4863 #147-4863 147-4863 

147-4864 #147-4864 147-4864 #147-4865 





#147-4866 

147-4866 

#147-4877 

147-4877 

WEST 

r 

000001 

#16-786 

67-2335 

#67-2335 

67-2335 

TtTSTM 

= 

177777 

#16-786 

27-1249 

27-1257 

27-1260 

44-1756 




31-1374 

38-1650 

44-1744 




50-1923 

50-1928 

50-1930 

50-1931 




54-2067 

54-2070 

54-2071 

54-2072 




56-2127 

56-2130 

56-2132 

58-2155 




64-2272 

67-2337 

67-2352 

67-2358 




71-2441 

73-2544 

73-2580 

77-2614 




87-3057 

37-3116 

89-3150 

95-3381 

TSTSTS 

z 

000001 

#16-786 

#67-2335 



TStAU 

s 

010012 

#64-2264 

64-2272 



THAUT 

= 

010010 

#56-2091 

56-2132 



T$$CLE 

Z 

010007 

#54-2059 

54-2072 



TMDAT 

r 

010024 

#151-4953 

151-4953 

151-4958 

#151-4959 

TMDU 

z 

010011 

#62-2212 

62-2232 



TStHAR 

r 

010016 

#145-4799 

145-4799 

145-4806 

145-4813 

TMHW 

z 

010000 

#18-866 

18-866 

18-879 


TttlNl 

r 

010006 

#50-1891 

50-1935 



TltffSG 

z 

010003 

#31-1348 

31-1349 

#31-1367 

31-1369 

TMPC 

= 

000002 

#151-4952 

151-4965 



TMPRO 

z 

010005 

#48-1876 




TMPTA 

s 

010023 

#151-4952 

151-4953 

#151-4953 

151-4959 


#56-2091 62- 
#67-2335 67- 
#145-4799 147 


G 11 


'EO 136 


38-1614 38-1614 #38-16U 48-1876 48-1876 

54-2059 54-2059 #54-2059 56-2091 56-2091 

64-2264 64-2264 #64-2264 67-2335 67-2335 

67-2358 67-2358 #67-2358 145-4799 145-4799 

151-4952 151-4952 #151-4952 151-4953 151-4953 

151-4959 151-4959 #151-4959 151-4959 151-4959 


#18-879 

31-1369 

#54-2072 

67-2352 

#77-2632 

143-4738 

#145-4802 

145-4803 

#145-4813 

147-4844 

#147-4845 

147-4847 

#147-4848 

147-4850 

#147-4851 

147-4854 

#147-4855 

147-4857 

#147-4859 

147-4861 

#147-4863 

147-4865 


18-879 

#37-1553 

54-2072 

#67-2369 

77-2632 

#145-4801 

145-4802 

#145-4804 

145-4813 

#147-4844 

147-4845 

#147-4847 

147-4848 

#147-4850 

147-4851 

#147-4854 

147-4855 

#147-4857 

147-4859 

#147-4861 

147-4863 

#147-4865 


» i o-v i 
37-1553 
#56-213? 
67-2369 
#77-2632 
145-4801 
#145-4802 
145-4304 
#147-4842 
U7-4844 
#147-4846 
147-4847 
#147-4849 
147-4850 
#147-4853 
147-4854 
#147-4856 
147-4857 
#147-4860 
147-4861 
#147-4864 
147-4865 


18-912 

#38-1650 

56-2132 

#67-2381 

77-2632 

#145-4801 

145-4802 

#145-4804 

147-4842 

#147-4844 

147-4846 

#147-4847 

147-4849 

#147-4850 

147-4853 

#147-4854 

147-4856 

#147-4857 

147-4860 

#147-4861 

147-4864 

#147-4865 


#151-4950 

151-4950 



67-2337 

67-2358 

151-4949 


27-1261 

29-1289 

31-1349 

31-1369 

44-1766 

50-1897 

50-1898 

50- *902 

50-1934 

50-1935 

52-2037 

52-2038 

56-2101 

56-2104 

56-2110 

56-2113 

58-2157 

58-2170 

62-2222 

62-2230 

67-2368 

67-2369 

67-2378 

67-2380 

77-2630 

77-2632 

77-2682 

79-2698 

109-3766 

109-3784 

* 1 3-3882 

113-3883 

151-4959 

151-4964 




#18-914 

38-1650 

#62-2232 

67-2381 

#77-2682 

145-4801 

#145-4803 

145-4804 

#147-4842 

147-4844 

#147-4846 

147-4847 

#147-4849 

147-4850 

#147-4853 

147-4854 

#147-4856 

147-4857 

#147-4860 

147-4861 

#147-4864 

147-4865 


31-1371 

50-1911 

52-2040 

56-2124 

62-2232 

67-2381 

79-2706 

143-4738 


#151-4959 



H 11 


CNRXDA 

CREATED BY 

MACRO ON 15-DEC-82 AT 

13:51 

PAGE 28 






SYMBOL 

CROSS REFERENCE 




CREF V01 






SYMBOL 

VALUE 

REFERENCES 









TWRPT 

= 010004 

#38-1614 

38-1650 








TUSEG 

= 010003 

#73-2544 

73-2544 

#73-2580 

73-2580 

#77-2614 

77-2614 

#77-2682 

77-2682 

#87-3057 



87-3057 

#87-3116 

87-3116 







TUSOF 

= 010017 

#147-4840 

147-4840 

147-4866 

147-4877 






TUSUB 

= 010015 

#67-2337 

67-2352 

#67-2358 

67-2369 






TUSU 

= 010001 

#18-891 

18-891 

18-912 







TMTES 

= 010013 

#67-2335 

67-2381 

143-4738 







TOMSG 

01 3124 

58-2167 

#58-2173 








n 

01 3564 G 

16-848 

#67-2335 








11 .1 

013566 

#67-2337 









n .2 

013706 

#67-2358 









UAM 

= 000200 G 

#19-983 









UAU234 

025162 

#109-3778 









UCOO 

013752 

#67-2370 









UOCRST 

027722 

119-4077 

#121-4201 








UOMDST 

027670 

119-4103 

#121-4186 








uosfst 

030072 

119-4101 

#123-4230 








UDU234 

025156 

#109-3776 









UF24 3 

027412 

#119-4105 









UGOO 

013766 

67-2357 

#67-2374 








UK1NT 

007404 

#48-1839 









UK243 

027554 

#119-4136 









UNIT 

002334 

#23-1139 

27-1248 

27-1257 

*35-1522 

*50-1915 

*50-1920 

50-1921 

50-1923 

52-1969 



52-2034 

52-2037 

52-2040 

*71-2507 

*71-2510 

*71-2514 

*71-2524 

*71-2527 

•71-2531 



*73-2548 

77-2652 

79-2697 

79-2706 

79-2713 

*93-3333 

113-3882 



UNITOP 

013436 

•62-2214 

62-2217 

62-2222 

62-2230 

#62-2234 





UNI T ST 

005024 

*35-1518 

#35-1525 

87-3051 







UNPICMP 

011656 

50-1926 

#52-1966 








UNT 

012330 

*52-1967 

*52-1986 

52-2015 

52-2023 

#52-2044 





UNTCO 

015300 

*71-2462 

*71-2487 

73-2545 

73-2549 

73-2574 

*73-2586 

#75-2602 

77-2637 

77-2642 

UNTCNT 

015276 

*71-2460 

•71-2486 

*73-2585 

73-2587 

#75-2601 





UNTCOD 

012326 

*52-1995 

*52-1998 

•52-2004 

•52-2007 

*52-2018 

*52-2021 

•52-2026 

•52-2029 

52-2031 



#52-2043 









UPOVST 

027230 

111-3831 

#119-4073 








UPSECT 

030216 

119-4074 

#125-4259 








UTCNT 

005412 

#38-1653 

*40-1663 

*40-1670 

*40-1690 

*40-1697 

*42-1720 

•42-1730 



UTSCON 

023704 

*99-3469 

*99-3518 

*99-3529 

99-3533 

#99-3548 





UTTST 

005410 

#38-1652 

*40-1662 

40-1664 

40-1666 

•40-1669 

*40-1689 

40-1692 

•40-1696 

•42-1719 



42-1721 

*42-1728 








UTOO 

002336 

#23-1140 

35-1521 

40-1662 

40-1689 

42-1719 

*50-1916 

52-2030 

56-2094 

56-2099 



56-2101 

62-2216 

71-2508 

71-2510 

73-2547 

93-3332 




UTOI 

002340 

#23-1141 

*50-1917 

56-2102 

56-2104 

71-2512 

71-2514 




UTIO 

002342 

#23-1142 

*50-1918 

56-2107 

56-2108 

56-2110 

56-2117 

56-2122 

56-2124 

71-2525 



71-2527 









UT11 

002344 

#23-1143 

*50-1919 

56-2111 

56-2113 

56-2125 

56-2127 

71-2529 

71-2531 


UUT 

002234 

#21-1099 

*87-3051 

87-3071 

87-3082 

93-3307 

93-3309 

*93-3316 

93-3319 

•93-3326 



*93-3328 

93-3329 

95-3349 

99-3470 

99-3558 

101-3581 

105-3654 

105-3659 

115-3943 



1 1 7-4046 

117-4056 

125-4259 

135-4557 

135-4563 





UUTADR 

002236 

# 21-1100 

37-1533 

37-1538 

37-1540 

*77-2668 

•95-3351 

*95-3353 

95-3400 

95-3437 



115-3922 

115-3929 

115-3951 

115-3961 






UUTOFF 

002240 

# 21-1101 

*35-1520 

•93-3331 

95-3346 

119-4114 

119-4125 

121-4191 

127-4306 

127-431 3 

UOAOR 

002220 

#21-1092 

*50-1904 

*52-1971 

52-1974 

56-2092 

56-2095 

56-2128 

71-2444 

71 -?446 


SEO **' 



CNRXDA 

CREATED BY 

MACRO ON 1 5-DEC-82 AT 

13:51 

PAGE 29 






SYMBOL 

SYMBOL 

CROSS REFERENCE 
VALUE 

REFERENCES 



CREF V01 


143-4687 





71-2451 

71-2453 

71-2455 

71-2463 

95-3353 




UOvECT 

002224 

#21-1094 

•50-1906 

50-1931 

*52-1972 

54-2067 





ill ADR 

002222 

#21-1093 

*50-1905 

52-1978 

*52-1980 

52-1983 

56-2115 

56-2118 

'1-2477 

71-2479 


71-2481 

71-2483 

71-2488 

95-3351 

143-4694 





U1VECT 

002226 

#21-1095 

*50-1907 

50-1932 

50-1934 

*52-1981 

54-2068 

54-2070 



VALUD 

C25030 

107-3728 

#107-3738 








WATCH 

025104 

107-3731 

#109-3765 








UC 

033545 

27-1 26C 

#143-4713 




113-3844 




UOCNT 

002252 

#21-1107 

•69-2416 

*69-2418 

83-2792 

95-3345 




UDCT 

023326 

*95-3345 

#97-3460 

107-3691 







UDOT 

023330 

•67-2349 

*95-3399 

*95-3434 

#97-3461 

107-3680 

107-3683 

107-3686 

107-3688 

107-3694 



107-3703 

107-3705 

107-3723 







URDS 

025022 

*107-3680 

*107-3691 

*107-3696 

*107-3698 

*107-3708 

*107-3709 

*107-3712 

*107-3713 

*107-3719 


*107-3728 

#107-3735 

107-3757 







WR1TSC 

007334 

42-1735 

#48-1835 








URT 

007464 

#48-1845 









URTRT 

002326 

#21-1132 

133-4518 








XATDP 

012766 

56-2112 

56-2114 

56-2121 

56-2129 

#56-2131 





XDVTST 

022504 

87-3102 

#95-3345 








XERPRT 

003034 

#29-1281 

131-4430 

139-4627 




107-3719 

•115-3925 

119-4107 

XERULIT 

033544 

27-1260 

29-1281 

29-1283 

*29-1290 

37-1547 

•67-2347 

129-4325 

#143-4712 








XER1 

002663 

27-1260 

#27-1269 








XER2 

002744 

27-1261 

#27-1270 






85-2952 

85-2961 

X ID 

020646 

*85-2889 

*85-2890 

85-2893 

85-2917 

85-2929 

*85-2930 

85-2945 

•85-2962 

85-2967 

85-2971 

*85-2972 

85-2982 

#85-3011 



85-2957 

XOD 

020644 

*85-2891 

•85-2892 

85-2894 

85-2921 

*85-2922 

85-2925 

85-2942 

85-2952 

*85-2958 

85-2967 

85-2969 

85-2974 

85-2985 

#85-3010 




XPG 

017554 

#83-2815 

83-2830 


#71-2519 






XPSUNO 

014700 

71-2511 

71-2515 

71-2517 






XPSUN1 

014740 

71-2528 

71-2530 

#71-2532 







XREC 

005134 

37-1546 

#37-1548 


#125-4283 






XUPSCT 

030340 

125-4270 

125-4275 

125-4279 






XU23 

025322 

109-3797 

109-3801 

#109-3810 

#109-3784 






XU234 

025212 

109-3772 

109-3774 

109-3782 






XXPG 

01 7630 

#83-2833 

83-2837 

83-2840 







XtALWA 

= 000000 

#16-786 

145-4806 

147-4866 

147-4858 

147-4862 





XlFALS 

= 000040 

#16-786 

147-4843 

147-4852 

147-4862 

1 47-4866 



XtOFFS 

= 000400 

#16-786 

145-4806 

147-4843 

147-4852 

147-4858 



XtTRUE 

= 000020 

#16-786 




#77-2684 





x 1 21 1 

016012 

77-2613 

77-2623 

77-2626 

77-2666 





X2AU1 

030470 

#127-4315 









X24 3' 

027720 

121-4188 

#121-4193 








X2A33 

030214 

#123-4251 
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BGNSET 

BGNSfT 

BGNSUB 

BGNSW 

BGNTST 

BNCOHP 

BRESET 

CXLOOP 

CLRVEC 

DESCRI 

OEVTYP 

DISPAT 

DOCLN 

DODU 

DORPT 

ENDAU 

ENDAUT 

ENDCLN 

ENDDU 

ENDHRD 

ENDHU 

END INI 

ENDHOD 

ENDMSG 

ENDPRO 
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ENDSET 
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ENDTST 

equals 

ERROR 
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REFERENCE CREf V01 

REFERENCES 


64-2264 

56-2091 

54-2059 

62-2212 

145-4799 

18-866 

50-1891 


38-1606 

16-812 

19-976 

31-1348 

48-1876 

31-1367 


151-4953 

38-1614 

151 — 49 c > 

87-3057 

73-2544 

151-4952 

147-4840 

77-261 h 

67-2337 

18-891 

67-2335 

67-2358 


50-1899 

50-1903 

50-1912 

54-2071 

67-2368 

71-2441 

58-2157 

54-2067 

16-837 

25-1209 

16-848 

54-2070 

50-1930 

52-2038 

56-2130 

56-2101 

67-2380 

64-2272 

56-2132 

54-2072 

62-2232 

145-4813 

18-879 

50-1935 

56-2104 

56-2110 

18-914 

37-1553 

151-4950 

31-1349 

48-1880 

31-1369 


151-4958 

38-1650 

151-4964 

87-3116 

73-2580 

151-4965 

147-4877 

77-2682 

67-2352 

18- 912 
143-4738 

19- 983 

67-2369 


27-1249 

27-1252 

58-2170 

79-2698 

67-2381 

77-2632 

50-1923 

145-4806 

147-4866 


50-1924 77-2631 


67-2378 

56-2113 


56-2124 


89-3151 95-3382 


56-2127 79-2706 
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MACRO CROSS 

REFERENCE 



CREF 

V01 






MACRO NAME 

REFERENCES 










GPRMA 

145-4801 

145-4802 









GPRMD 

145-4803 

145-4804 

147-4845 

147-4846 

147-4847 

147-4848 

147-4859 

147-4860 

H7-4863 

147-4864 

GPRML 

#7 7-2632 

77-2632 

147-4842 

147-4844 

147-4849 

147-4850 

147-4851 

147-4853 

147-4854 

147-4855 


147-4856 

147-4857 

147-4861 

147-4865 







HEADER 

16-829 










INLOOP 

89-3150 

95-3381 









LASTAD 

151-4949 










MANUAL 

77-2630 










MtBYTE 

#16-829 

16-829 









MSCHEC 

#67-2381 

67-2381 

#145-4806 

145-4806 

#147-4866 

147-4866 





MSCNTO 

#77-2632 

77-2632 

#145-4801 

145-4801 

#145-4802 

145-4802 

#145-4803 

145-4803 

#145-4804 

145-4804 


#147-4842 

147-4842 

#147-4844 

147-4844 

#147-4845 

147-4845 

#147-4846 

147-4846 

#147-4847 

147-4847 


#147-4848 

147-4848 

#147-4849 

147-4849 

#147-4850 

147-4850 

#147-4851 

147-4851 

#147-4853 

147-4853 


#147-4854 

147-4854 

#147-4855 

147-4855 

#147-4856 

147-4856 

#147-4857 

147-485^ 

#147-4859 

147-4859 


#147-4860 

147-4860 

#147-4861 

147-4861 

#147-4863 

147-4863 

#147-4864 

147-4864 

#147-4865 

147-4863 

MSCOUN 

#27-1257 

27-1257 

27-1257 

27-1257 

27-1257 

#27-1260 

27-1260 

27-1260 

27-1260 

27-1260 


#27-1261 

27-1261 

27-1261 

27-1261 

27-1261 

#29-1289 

29-1289 

#31-1371 

31-1371 

#31-1374 


31-1374 

#44-1744 

44-1744 

#44-1756 

44-1756 

#44-1766 

44-1766 

44-1766 

#50-1928 

50-1928 


#52-2037 

52-2037 

#52-2040 

52-2040 

#62-2222 

62-2222 

#62-2230 

62-2230 

#113-3882 

113-3882 


113-3882 

113-3882 

#113-3883 

113-3883 

113-3883 

113-3883 





HtDATA 

#16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 


16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

#16-829 

16-829 

16-829 

16-829 


16-B29 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 


16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

#16-837 


16-837 

#25-1209 

25-1209 








MSDECR 

#18-879 

18-879 

#18-912 

18-912 

#18-914 

18-914 

#31-1349 

31-1349 

#31-1369 

31-1369 


#37-1553 

37-1553 

#38-1650 

38-1650 

#48-1880 

48-1880 

#50-1935 

50-1935 

#54-2072 

54-2072 


#56-2132 

56-2132 

#62-2232 

62-2232 

#64-2272 

64-2272 

#67-2352 

67-2352 

#67-2369 

67-2369 


#73-2580 

73-2580 

#73-2580 

73-2580 

#77-2682 

77-2682 

#77-2682 

77-2682 

#87-3116 

87-3116 


#87-3116 

87-3116 

#143-4738 

143-4738 

#145-4813 

145-4813 

#147-4877 

147-4877 

#151-4950 

151-4950 


#151-4953 

151-4953 

#151-4959 

151-4959 







MtDEFA 

#77-2632 

77-2632 

#145-4801 

145-4801 

#145-4802 

145-4802 

#145-4803 

145-4803 

#145-4804 

145-4804 


#147-4842 

147-4842 

#147-4844 

147-4844 

#147-4845 

147-4845 

#147-4846 

147-4846 

#147-4847 

147-4847 


#147-4848 

147-4848 

#147-4849 

147-4849 

#147-4850 

147-4850 

#147-4851 

147-4851 

#147-4853 

147-4853 


#147-4854 

147-4854 

#147-4855 

147-4855 

#147-4856 

147-4856 

#147-4857 

147-4857 

#147-4859 

147-4859 


#147-4860 

147-4860 

#147-4861 

147-4861 

#147-4863 

147-4863 

#147-4864 

147-4864 

#147-4865 

147-4865 

MSENDE 

#18-879 

#18-912 

#18-914 

#31-1349 

#31-1369 

#37-1553 

#38-1650 

#50-1935 

#54-2072 

#56-21 32 


#62-2232 

#64-2272 

#67-2352 

#67-2369 

#73-2580 

#77-2682 

#87-3116 

#143-4738 

#145-4813 

#147-4877 


#151-4950 










MtEXCP 

#145-4801 

■* 45—4801 

145-4801 

#145-4802 

145-4802 

145-4802 

#145-4803 

145-4803 

145-4803 

#145-4804 


145-4804 

145-4804 

#147-4845 

147-4845 

147-4845 

#147-4846 

147-4846 

147-4846 

#147-4847 

147-4847 


147-4847 

#147-4848 

147-4848 

147-4848 

#147-4859 

147-4859 

147-4859 

#147-4860 

147-4860 

147-4860 


#147-4863 

147-4863 

147-4863 

#147-4864 

147-4864 

147-4864 





MSEX1T 

#67-2381 

67-2381 

#145-4806 

#147-4866 







MJEXSE 

#67-2381 

#145-4806 

#147-4866 








MSEXTJ 

#67-2381 

#145-4806 

#147-4866 








MtGEN 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-B29 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 
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MACRO CROSS 

REFERENCE 



CREF 

V01 






MACRO NAME 

REFERENCES 











#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-837 

16-837 

#16-848 

16-848 


#18-866 

18-866 

#18-866 

18-866 

#18-879 

18-879 

#18-891 

18-891 

#18-891 

18-891 


#18-912 

18-912 

#25-1209 

25-1209 

#27-1252 

27-1252 

#31-1348 

31-1348 

#31-1349 

31-1349 


#31-1367 

31-1367 

#31-1369 

31-1369 

#38-1614 

38-1614 

#38-1650 

38-1650 

#48-1876 

48-1876 


#50-1891 

50-1891 

#50-1935 

50-1935 

#54-2059 

54-2059 

#54-2072 

54-2072 

#56-2091 

56-2091 


#56-2132 

56-2132 

#62-2212 

62-2212 

#62-2232 

62-2232 

#64-2264 

64-2264 

#64-2272 

64-2272 


#67-2335 

67-2335 

#67-2337 

67-2337 

#67-2352 

67-2352 

#67-2358 

67-2358 

#67-2369 

67-2369 


#73-2580 

73-2580 

#77-2632 

77-2632 

#77-2682 

77-2682 

#87-3116 

87-3116 

#143-4738 

143-4738 


#145-4799 

145-4799 

#145-4813 

145-4813 

#147-4840 

147-4840 

#147-4877 

147-4877 

#151-4949 

151-4949 


#151 — A953 

151-4953 

#151-4958 

151-4958 

#151-4959 

151-4959 

#151-4964 

151-4964 



MSGENB 

#77-2632 

77-2632 









MtGETS 

#18-879 

18-879 

#18-912 

18-912 

#18-914 

18-914 

#31-1349 

31-1349 

#31-1369 

31-1369 


#37-1553 

37-1553 

#38-1650 

38-1650 

#48-1880 

48-1880 

#50-1935 

50-1935 

#54-2072 

54-2072 


#56-2132 

56-2132 

#62-2232 

62-2232 

#64-2272 

64-2272 

#67-2352 

67-2352 

#67-2369 

67-2369 


#73-2580 

73-2580 

#73-2580 

73-2580 

#77-2682 

77-2682 

#77-2682 

77-2682 

#87-3116 

87-3116 


#87-3116 

87-3116 

#143-4738 

143-4738 

#145-4806 

145-4806 

#145-4806 

145-4806 

#145-4813 

145-4813 


#147-4843 

147-4843 

#147-4852 

147-4852 

#147-4858 

147-4858 

#147-4862 

147-4862 

#147-4866 

147-4866 


#147-4866 

147-4866 

#147-4877 

147-4877 

#151-4950 

151-4950 





MSGETT 

#67-2381 

#145-4806 

145-4806 

#145-4806 

145-4806 

#147-4843 

147-4843 

#147-4852 

147-4852 

#147-4858 


147-4858 

#147-4862 

147-4862 

#147-4866 

147-4866 

#147-4866 

147-4866 




MSGNGB 

#16-812 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 


16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 


16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 


16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 


16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 


16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 


16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 


16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-837 

16-837 

#16-848 


16-848 

#18-866 

18-866 

18-866 

#18-891 

18-891 

18-891 

#19-976 

#25-1209 

25-1209 


#27-1252 

27-1252 

#31-1348 

31-1348 

#31-1367 

31-1367 

#38-1606 

#38-1614 

38-1614 

#48-1876 


48-1876 

#50-1891 

50-1891 

#54-2059 

54-2059 

#56-2091 

56-2091 

#62-2212 

62-2212 

#64-2264 


64-2264 

#145-4799 

145-4799 

#147-4840 

147-4840 

#151-4949 

151-4949 




MSGNIN 

#16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 


#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-829 

16-829 

#16-837 

#16-837 


16-837 

16-837 

#16-848 

16-848 

#16-848 

16-848 

#18-866 

18-866 

#18-891 

18-891 


#25-1209 

#25-1209 

25-1209 

25-1209 

#27-1249 

27-1249 

#27-1257 

#27-1257 

27-1257 

#27-1257 


27-1257 

#27-1257 

27-1257 

#27-1257 

27-1257 

#27-1257 

27-1257 

#27-1257 

27-1257 

27-1257 


#27-1257 

27-1257 

27-1257 

#27-1260 

#27-1260 

27-1260 

27-1260 

#27-1260 

27-1260 

27-1260 


#27-1260 

27-1260 

27-1260 

#27-1260 

27-1260 

27-1260 

#27-1260 

27-1260 

#27-1260 

2'7-1 260 


27-1260 

#27-1260 

27-1260 

27-1260 

#27-1261 

#27-1261 

27-1261 

27-1261 

#27-1261 

27-1 261 


27-1261 

#27-1261 

27-1261 

27-1261 

#27-1261 

27-1261 

27-1261 

#27-1261 

27-1261 

#27-1261 


27-1261 

27-1261 

#27-1261 

27-1261 

27-1261 

#29-1289 

#29-1289 

29-1289 

#29-1289 

29-1289 


29-1289 

#29-1289 

29-1289 

29-1289 

#31-1349 

31-1349 

#31-1369 

31-1369 

#31-1371 

#31-1371 


31-1371 

#31-1371 

31-1371 

31-1371 

#31-1371 

31-1371 

31-1371 

#31-1374 

#31-1374 

31-1 374 
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MACRO CROSS 

REFERENCE 



CREf 

V01 



MACRO NAME 

REFERENCES 








#31-1374 

31-1374 

#31-1374 

31-1374 

31-1374 

#31-1374 

31-1374 


#44-1744 

#44-1744 

44-1744 

#44-1744 

44-1744 

#44-1744 

44-1744 


44-1744 

#44-1756 

#44-1756 

44-1756 

#44-1756 

44-1756 

44-1756 


#44-1766 

#44-1766 

44-1766 

#44-1766 

44-1766 

#44-1 7' 6 

44-1766 


#44-1766 

44-1766 

44-1766 

#50-1897 

50-1897 

#50-1897 

50-1897 


50-1898 

#50-1899 

50-1899 

#50-1902 

50-1902 

#50-1902 

50-1902 


50-1911 

#50-1911 

50-1911 

#50-1912 

50-1912 

#50-1923 

50-1923 


50-1923 

#50-1924 

50-1924 

#50-1928 

#50-1928 

50-1928 

#50-1928 


50-1928 

50-1928 

#50-1930 

50-1930 

#50-1931 

#50-1931 

50-1931 


50-1931 

#50-1931 

50-1931 

#50-1931 

50-1931 

50-1931 

#50-1934 


50-1934 

#50-1934 

50-1934 

#50-1934 

50-1934 

#50-1934 

50-1934 


#52-2037 

#52-2037 

52-2037 

#52-2037 

52-2037 

#52-2037 

52-2037 


52-2037 

#52-2038 

52-2038 

#52-2040 

#52-2040 

52-2040 

#52-2040 


52-2040 

#52-2040 

52-2040 

52-2040 

#54-2067 

54-2067 

#54-2067 


#54-2070 

54-2070 

#54-2071 

54-2071 

#54-2072 

54-2072 

#56-2101 


#56-2104 

56-2104 

#56-2104 

56-2104 

#56-2110 

56-2110 

#56-2110 


#56-2113 

56-2113 

#56-2124 

56-2124 

#56-2124 

56-2124 

#56-2127 


#56-2130 

56-2130 

#56-2132 

56-2132 

#58-2155 

#58-2155 

58-2155 


58-2155 

#58-2155 

58-2155 

#58-2155 

58-2155 

58-2155 

#58-2157 


#58-2170 

58-2170 

#62-2222 

#62-2222 

62-2222 

#62-2222 

62-2222 


#62-2222 

62-2222 

62-2222 

#62-2230 

#62-2230 

62-2230 

#62-2230 


62-2230 

#62-2230 

62-2230 

62-2230 

#62-2232 

62-2232 

#64-2272 


#67-2352 

67-2352 

#67-2358 

67-2358 

#67-2368 

67-2368 

#67-2369 


#67-2380 

67-2380 

#67-2381 

67-2381 

#67-2381 

67-2381 

#71-2441 


#73-2580 

73-2580 

#77-2614 

77-2614 

#77-2630 

77-2630 

#77-2631 


#77-2632 

77-2632 

#77-2632 

77-2632 

#77-2632 

77-2632 

77-2632 


#79-2698 

79-2698 

#79-2706 

79-2706 

#79-2706 

79-2706 

#87-3057 


#89-3150 

89-3150 

#89-3151 

89-3151 

#95-3381 

95-3381 

#95-3382 


#109-3766 

109-3766 

#109-3784 

109-3784 

#109-3784 

109-3784 

#113-3882 


113-3882 

#113-3882 

113-3882 

#113-3882 

113-3882 

#113-3882 

113-3882 


113-3882 

#113-3883 

#113-3883 

113-3883 

113-3883 

#113-3883 

113-3883 


#113-3883 

1 1,3-3883 

#113-3883 

113-3883 

113-3883 

#113-3883 

113-3883 


#145-4799 

145-4799 

#145-4801 

145-4801 

145-4801 

145-4801 

145-4801 


145-4802 

145-4802 

#145-4803 

145-4803 

145-4803 

145-4803 

145-4803 


145-4804 

145-4804 

145-4804 

145-4804 

#145-4806 

145-4806 

#145-4813 


#147-4842 

147-4842 

147-4842 

147-4842 

#147-4843 

147-4843 

#147-4844 


#147-4845 

147-4845 

147-4845 

147-4845 

147-4845 

147-4845 

#147-4846 


147-4846 

147-4846 

#147-4847 

147-4847 

147-4847 

147-4847 

147-4847 


147-4848 

147-4848 

147-4848 

147-4848 

#147-4849 

147-4849 

147-4849 


147-4850 

147-4850 

#147-4851 

147-4851 

147-4851 

147-4851 

#147-4852 


147-4853 

147-4853 

#147-4854 

147-4854 

147-4854 

147-4854 

#147-4855 


#147-4856 

147-4856 

147-4856 

147-4856 

#147-4857 

147-4857 

147-4857 


#147-4859 

147-4859 

147-4859 

147-4859 

147-4859 

147-4859 

#147-4860 


147-4860 

147-4160 

#147-4861 

147-4861 

147-4861 

147-4861 

#147-4862 


147-4863 

147-4863 

147-4863 

147-4863 

#147-4864 

147-4864 

147-4864 


#147-4865 

147-4865 

147-4865 

147-4865 

#147-4866 

147-4866 

1147-4877 


151-4949 

151-4949 

#151-4953 

151-4953 

151-4953 

#151-4959 

#151-4959 

NSGNIS 

#73-2580 

73-2580 

#77-2632 

77-2632 

#77-2682 

77-2682 

#87-3116 

NSGNSU 

#67-2337 

67-2337 

#67-2358 

67-2358 




MIGNTA 

#18-879 

18-879 

#18-912 

18-912 

#31-1349 

31-1349 

#31-1369 


#50-1935 

50-1935 

#54-2072 

54-2072 

#56-2132 

56-2132 

#62-2232 


#67-2352 

67-2352 

#67-2369 

67-2369 

#143-4738 

143-4738 

#145-4813 


SEO K 2 


31-1374 

44-1744 

#44-1756 

#44-1766 

#50-1898 

#50-1903 

#50-1923 

50-1928 

#50-1931 

#50-1934 

50-1934 

52-2037 

52-2040 

54-2067 

56-2101 

56-2110 

56-2127 

#58-2155 

58-2157 

#62-2222 

62-2230 

64-2272 

67-2369 

71-2441 

77-2631 

77-2632 

87-3057 

95-3382 

#113-3882 

113-3882 

113-3883 

113-3883 

#145-4802 

145-4803 

145-4813 

147-4844 

147-4846 

147-4847 

147-4849 

147-4852 

147-4855 

147-4857 

147-4860 

147-4862 

147-4864 

147-4877 

151-4959 

87-3116 

31-1369 

62-2232 

145-4813 


#38-1650 
#44-1744 
44-1756 
44-1766 
50-1898 
50-1903 
50-1923 
50-1928 
50-1931 
50-1934 
#50-1935 
#52-2037 
#52-2040 
#54-2070 
#56-2101 
#56-2113 
#56-2127 
58-2155 
#58-2157 
62-2222 
#62-2230 
#67-2337 
#67-2378 
# 3-2544 
#77-2632 
#77-2682 
#87-3116 
#109-3766 
113-3882 
#113-3882 
#113-3883 
#143-4738 
145-4802 
#145-4804 
#147-4840 
147-4844 
147-4846 
#147-4848 
#147-4850 
#147-4853 
147-4855 
#147-4858 
147-4860 
#147-4863 
147-4864 
#151-4949 
151-4959 


#38-1650 

#64-2272 

#147-4877 


38-1650 
44-1744 
44-1756 
44-1766 
#50-1898 
#50-1911 
#50-1923 
#50-1928 
#50-1931 
#50-1934 
50-1935 
52-2037 
52-2040 
54-2070 
56-2101 
56-2113 
56-2127 
#58-2155 
58-2157 
62-2222 
62-2230 
67-2337 
67-2378 
73-2544 
77-2632 
77-2682 
87-3116 
109-3766 
#113-3882 
113-3882 
113-3883 
143-4738 
145-4802 
145-4804 
147-4840 
147-4844 
147-4846 
147-4848 
147-4850 
147-4853 
147-4855 
147-4858 
147-4860 
147-4863 
147-4864 
151 — 494 e 


38-1650 

64-2272 

147-4877 
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MACRO NAME 

REFERENCES 











#151-4953 

151-4953 

#151-4958 

151-4958 

#151-4959 

151-4959 

#151-4964 

151-4964 



MIGNTE 

#67-2335 

67-2335 









MIHAPT 

#16-829 

16-§29 









mshnap 

#16-829 

16-829 









MSINCR 

#16-812 

16-812 

#18-866 

#18-866 

18-866 

18-866 

#18-891 

#18-891 

18-891 

18-891 


#19-976 

19-976 

#27-1249 

#27-1257 

#27-1260 

#27-1261 

#29-1289 

#31-1348 

#31-1348 

31-1348 


31-1348 

#31-1349 

#31-1367 

#31-1367 

31-1367 

31-1367 

#31-1369 

#31-1371 

#31-1374 

#38-1606 


38-1606 

#38-1614 

#38-1614 

38-1614 

38-1614 

#38-1650 

#44-1744 

#44-1756 

#44-1766 

#48-1876 


#48-1876 

48-1876 

48-1876 

#50-1891 

#50-1891 

50-1891 

50-1891 

#50-1897 

#50-1898 

#50-1902 


#50-1911 

#50-1923 

#50-1928 

#50-1930 

#50-1931 

#50-1934 

#50-1935 

#52-2037 

#52-2038 

#52-2040 


#54-2059 

#54-2059 

54-2059 

54-2059 

#54-2067 

#54-2070 

#54-2071 

#5h-2072 

#56-2091 

#56-2091 


56-2091 

56-2091 

#56-2101 

#56-2104 

#56-2110 

#56-2113 

#56-2124 

#56-2127 

#56-2130 

#56-2132 


#58-2155 

#58-2157 

#58-2170 

#62-2212 

#62-2212 

62-2212 

62-2212 

#62-2222 

#62-2230 

#62-2232 


#64-2264 

#64-2264 

64-2264 

64-2264 

#64-2272 

#67-2335 

#67-2335 

67-2335 

#67-2335 

67-2335 


67-2335 

#67-2337 

67-2337 

#67-2337 

67-2337 

67-2337 

#67-2337 

#67-2352 

#67-2358 

67-2358 


#67-2358 

67-2358 

67-2358 

#67-2358 

#67-2368 

#67-2369 

#67-2378 

#67-2380 

#67-2381 

#71-2441 


#73-2544 

#73-2544 

73-2544 

#73-2544 

73-2544 

73-2544 

#73-2544 

#73-2580 

#77-2614 

#77-2614 


77-2614 

#77-2614 

77-2614 

77-2614 

#77-2614 

#77-2630 

#77-2632 

#77-2632 

77-2632 

#77-2682 


#79-2698 

#79-2706 

#87-3057 

#87-3057 

87-3057 

#87-3057 

87-3057 

87-3057 

#87-3057 

#87-3116 


#89-3150 

#95-3381 

#109-3766 

#109-3784 

#113-3882 

#113-3883 

#143-4738 

#145-4799 

#145-4799 

145-4799 


145-4799 

#147-4840 

#147-4840 

147-4840 

147-4840 

#151-4952 

151-4952 

#151-4953 

151-4953 

151-4953 


151-4953 

#151-4959 

151-4959 

151-4959 

151-4959 






MtlDRO 

#50-1898 

50-1898 

#50-1902 

50-1902 

#50-1911 

50-1911 

#50-1923 

50-1923 

#54-2067 

54-2067 


#54-2070 

54-2070 

#56-2101 

56-2101 

#56-2104 

56-2104 

#56-21 VO 

56-2H0 

#56-2113 

56-2113 


#56-2124 

56-2124 

#56-2127 

56-2127 

#58-2157 

58-2157 

#79-2706 

79-2706 

#109-3766 

109-3766 


#109-3784 

109-3784 









MtMCHl 

#16-786 

16-786 









MSMCLO 

#16-786 

16-786 









MtPOP 

#18-879 

18-879 

#18-912 

18-912 

#18-914 

18-914 

#31-1349 

31-1349 

#31-1369 

31-1369 


#37-1553 

37-1553 

#38-1650 

38-1650 

#48-1880 

48-1880 

#50-1935 

50-1935 

#54-2072 

54-2072 


#56-2132 

56-2132 

#62-2232 

62-2232 

#64-2272 

64-2272 

#67-2352 

67-2352 

#67-2369 

67-2369 


#73-2580 

7 3-2580 

73-2580 

#77-2682 

77-2682 

77-2682 

#87-3116 

87-3116 

87-3116 

#143-4738 


143-4738 

#145-4813 

145-4813 

#147-4877 

147-4877 

#151-4950 

151-4950 




MiPRlN 

#27-1257 

27-1257 

#27-1260 

27-1260 

#27-1261 

27-1261 

#29-1289 

29-1289 

#31-1371 

31-1371 


#31-1374 

31-1374 

#44-1744 

44-1744 

#44-1756 

44-1756 

#44-1766 

44-1766 

#50-1928 

50-1928 


#52-2037 

52-2037 

#52-2040 

52-2040 

#62-2222 

62-2222 

#62-2230 

62-2230 

#113-3882 

113-3882 


#113-3883 

113-3883 









MtPUSH 

#16-812 

16-812 

#18-866 

18-866 

#18-891 

18-891 

#19-976 

19-976 

#31-1348 

31-1348 


#31-1367 

31-1367 

#38-1606 

38-1606 

#38-1614 

38-1614 

#48-1876 

48-1876 

#50-1891 

50-1891 


#54-2059 

54-2059 

#56-2091 

56-2091 

#62-2212 

62-2212 

#64-2264 

64-2264 

#67-2335 

67-2335 


#67-2337 

67-2337 

#67-2358 

67-2358 

#73-2544 

73-2544 

73-2544 

#77-2614 

77-2614 

77-261 4 


#87-3057 

87-3057 

87-3057 

#145-4799 

145-4799 

#147-4840 

147-4840 




MIPUT 

#27-1257 

27-1257 

27-1257 

27-1257 

27-1257 

27-1257 

27-1257 

#27-1260 

27-1260 

27-1260 


27-1260 

27-1260 

27-1260 

27-1260 

#27-1261 

27-1261 

27-1261 

27-1261 

27-1261 

27-1261 


27-1261 

#29-1289 

29-1289 

29-1289 

#31-1371 

31-1371 

31-1371 

#31-1374 

31-1374 

31-1 374 


31-1374 

#44-1744 

44-1744 

44-1744 

44-1744 

#44-1756 

44-1756 

44-1756 

#44-1766 

44-1 766 


44-1766 

44-1766 

44-1766 

#50-1928 

50-1928 

50-1928 

#50-1931 

50-1931 

50-1931 

50-1931 


50-1931 

#50-1934 

50-1934 

50-1934 

50-1934 

50-1934 

#52-2037 

52-2057 

52-2037 

52-2037 


#52-2040 

52-2040 

52-2040 

52-2040 

#58-2155 

58-2155 

58-2155 

58-2155 

58-2155 

#62-2222 


62-2222 

62-2222 

62-2222 

#62-2230 

62-2230 

62-2230 

62-2230 

#113-3882 

113-3882 

11 3-3882 


113-3882 

113-3882 

113-3882 

#113-3883 

113-3883 

113-3883 

113-3885 

113-3883 

113-388? 


MSPUT1 

#27-1257 

#27-1257 

#27-1257 

#27-1257 

#27-1257 

#27-1257 

27-1257 

27-1257 

27-1257 

«‘/’-1257 



B 12 


CNRXDA CREATED BY 
MACRO CROSS REFERENCE 


MACRO ON 15-DEC-82 AT 13:51 


MACRO NAME 


MtRADI 


MIR NR 0 
MISETS 


MSSVC 


MtTLAB 



•m 

27-i ; 

27-1 ; 

#3i -i L 
#44-1744 
#44-1766 

50-1928 
#50-1934 
#52-2037 
#58-21 55 
#62-2222 
#113-3882 
#113-3883 
#77-2632 
#147-4842 
#147-4848 
#147-4854 
#147-4860 
#50-1897 
#16-812 
#31-1367 
#54-2059 
#67-2337 
#77-2614 
#27-1249 
#31-1349 
#*4-1744 
#50-1902 
#50-1931 
#52-2040 
#56-2101 
#56-2127 
#58-2170 
#67-2337 
#67-2378 
#73-2580 
#79-2698 
#95-3381 
#143-4738 
#27-1249 
#44-1744 
#50-1931 
#56-2101 
#58-2170 
#67-2378 
#79-2698 
#143-4738 
#27-1249 
#31-1349 
#44-1744 
#50-1902 
#50-1931 


PAGE 35 
CREF V01 


SEQ 14* 


!7-i; 

.7-1 ; 

>7-1 j 
#ii-i! 
#44-1744 
#44-1766 
50-1928 
#50-1934 
52-2037 
#58-2155 
62-2222 
#113-3882 
#113-3883 
77-2632 
147-4842 
147-4848 
147-4854 
147-4860 
50-1897 
16-812 
31-1367 
54-2059 
67-2337 
77-2614 
27-1249 
31-1349 
44-1744 
50-1902 
50-1931 
52-2040 
56-2101 
56-2127 
58-2170 
67-2337 
67-2378 
73-2580 
79-2698 
95-3381 
143-4738 
#27-1257 
#44-1756 
#50-1934 
#56-2104 
#62-2222 
#67-2380 
#79-2706 

27-1249 

31-1349 

44-1744 

50-1902 

50-1931 


#27-1260 
27-1260 
27-1261 
31-1371 
#44-1744 
#44-1766 
#50-1931 
#50-1934 
52-2037 
#58-2155 
62-2222 
#113-3882 
#113-3883 
#145-4801 
#147-4844 
#147-4849 
#147-4855 
#147-4861 
#50-1923 
#18-866 
#38-1606 
#56-2091 
#67-2358 
#87-3057 
#27-1257 
#31-1369 
#44-1756 
#50-1911 
#50-1934 
#54-2067 
#56-2104 
#56-2130 
#62-2222 
#67-2352 
#67-2380 
#77-2614 
#79-2706 
#109-3766 
#145-' 806 
#27-1280 
#44-1766 
#50-1935 
#56-2110 
#62-2230 
#67-2381 
#87-3057 

#27-1257 

#31-1369 

#44-1756 

#50-1911 

#50-1934 


#27-1260 

27-1260 

27-1261 

31-1371 

44-1744 

#44-1766 

#50-1931 

#50-1934 

52-2037 

#58-2155 

62-2222 

#113-3882 

#113-3883 

145-4801 

147-4844 

147-4849 

147-4855 

147-4861 

50-1923 

18-866 

38-1606 

56-2091 

67-2358 

87-3057 

27-1257 

31-1369 

44-1756 

50-1911 

50-1934 

54-2067 

56-2104 

56-2130 

62-2222 

67-2352 

67-2380 

77-2614 

79-2706 

109-3766 

#147-4866 

#27-1261 

#50-1897 

#52-2037 

#56-2113 

#62-2232 

#71-2441 

#87-3116 

27-1257 

31-1369 

44-1756 

50-1911 

50-1934 


#27-1 
#27-1 


60 

_ _61 
27-1261 
#31-1374 
44-1744 
44-1766 
#50-1931 
50-1934 
#52-2040 
58-2155 
#62-2230 
#113-3882 
#113-3883 
#145-4802 
#147-4845 
#147-4850 
#147-4856 
#147-4863 

#18-891 

#38-1614 

#62-2212 

#73-2544 

#87-3057 

#27-1260 

#31-1371 

#44-1766 

#50-1923 

#50-1935 

#54-2070 

#56-2110 

#56-2132 

#62-2230 

#67-2358 

#67-2381 

#77-2630 

#87-3057 

#109-3784 

#29-1289 

#50-1898 

#52-2038 

#56-2124 

#64-2272 

#73-2544 

#89-3150 

#27-1260 

#31-1371 

#44-1766 

#50-1923 

#50-1935 


#27-1260 

#27-1261 

27-1261 

#31-1374 

44-1744 

44-1766 

#50-1931 

50-1934 

#52-2040 

58-2155 

#62-2230 

113-3882 

113-3883 

145-4802 

147-4845 

147-4850 

147-4856 

147-4863 

18-891 

38-1614 

62-2212 

73-2544 

87-3057 

27-1260 

31-1371 

44-1766 

50-1923 

50-1935 

54-2070 

56-2110 

56-2132 

62-2230 

67-2358 

67-2381 

77-2630 

87-3057 

109-3784 

#31-1349 

#50-1902 

#52-2040 

#56-2127 

#67-2337 

#73-2580 

#95-3381 

27-1260 

31-1371 

44-1766 

50-1923 

50-1935 


#27-1260 

#27-1261 

#29-1289 

#31-1374 

#44-1756 

44-1766 

50-1931 

50-1934 

#52-2040 

58-2155 

#62-2230 

113-3882 

113-3883 

#145-4803 

#147-4846 

#147-4851 

#147-4857 

#147-4864 

#19-976 

#48-1876 

#64-2264 

#73-2544 

#145-4799 

#27-1261 

#31-1374 

#50-1897 

#50-1928 

#52-2037 

#54-2071 

#56-2113 

#58-2155 

#62-2232 

#67-2368 

#71-2441 

#77-2632 

#87-3116 

#113-3882 

#31-1369 

#50-1911 

#54-2067 

#56-2130 

#67-2352 

#77-2614 

#109-3766 

#27-1261 

#31-1374 

#50-1897 

#50-1928 

#52-2037 


#27-1260 
#27-1261 
#29-1289 
31-1374 
#44-1756 
44-1766 
50-1931 
50-1934 
52-2040 
58-2155 
62-2230 
113-3882 
113-3883 
145-4803 
1 47-4846 
147-4851 
147-4857 
147-4864 

19-976 

48-1876 

64-2264 

73-2544 

145-4799 

27-1261 

31-1374 

50-1897 

50-1928 

52-2037 

54-2071 

56-2113 

58-2155 

62-2232 

67-2368 

71-2441 

77-2632 

87-3116 

113-3882 

#31-1371 

#50-1923 

#54-2070 

#56-2132 

#67-2358 

#77-2630 

#109-3784 

27-1261 

31-1374 

50-1897 

50-1928 

52-2037 


27-1260 

#27-1261 

29-1289 

31-1374 

44-1756 

#50-1928 

50-1931 

#52-2037 

52-2040 

#62-2222 

62-2230 

113-3882 

113-3883 

#145-4804 

#147-4847 

#147-4853 

#147-4859 

#147-4865 

#31-1348 

#50-1891 

#67-2335 

#77-261 <« 

#147-4840 

#29-1289 

#38-1650 

#50-1898 

#50-1930 

#52-2038 

#54-2072 

#56-2124 

#58-2157 

#64-2272 

#67-2369 

#73-2544 

#77-2682 

#89-3150 

#113-3883 

#31-1374 

#50-1928 

#54-2071 

#58-2155 

#67-2368 

#77-2632 

#113-3882 

#29-1289 

#38-1650 

#50-1898 

#50-1950 

#52-2038 


27-1260 
#27-1261 
29-1289 
31-1374 
44-1756 
#50-1928 
50-1931 
#52-2037 
52-2040 
#62-2222 
62-2230 
1 1 3-3882 
113-3883 
145-4804 
147-4847 
147-4853 
147-4859 
147-4865 

31-1348 

50-1891 

67-2335 

77-2614 

147-4840 

29-1289 

38-1650 

50-1898 

50-1930 

52-2038 

54-2072 

56-2124 

58-2157 

64-2272 

67-2369 

73-2544 

77-2682 

89-3150 

113-3883 

#38-1650 

#50-1930 

#54-2072 

#58-2157 

#67-2369 

#77-2682 

#113-3883 

29-1289 

38-1650 

50-1898 

50-1930 

52-2038 


HSTS1L 



CNRXDA 
MACRO CROSS 
MACRO NAME 


MtUORD 


MiXfER 

POINTE 

PRINTS 

PRINTf 

PRINTS 

PRINTX 

READEF 

Rf LAGS 

SETPRl 

SETVEC 

SVC 

XFER 

XFERf 


CREATED BY MACRO ON T5-DEC-82 AT 13: 
REFERENCE 

REFERENCES _ , 
#52-2040 52-2040 #54-2067 
#56-2101 56-2101 #56-2104 
#56-2127 56-2127 #56-2130 
#58-2170 58-2170 #62-2222 
#67-2337 67-2337 #67-2352 
#67-2378 67-2378 #67-2380 
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#73-2580 

#79-2698 

#95-3381 

#143-4738 

#16-829 

#145-4801 

145-4806 

147-4846 

147-4851 

147-4856 

147-4861 

#147-4866 

#145-4806 

#147-4866 

16-819 

27-1257 

50-1928 

44-1744 

27-1260 

50-1898 

50-1897 

109-3766 

50-1931 

#16-785 

#67-2381 

147-4843 


52-2040 

56-2101 

56-2127 

58-2170 

67-2337 

67-2378 

73-2580 

79-2698 

95-3381 

143-4738 

16-829 

145-4801 

#147-4842 

#147-4847 

#147-4852 

#147-4857 

#147-4862 

147-4866 

145-4806 

147-4866 

31-1371 

52-2037 

44-1756 

27-1261 

50-1902 

109-3784 

50-1934 

16-786 

#145-4806 

147-4852 


#54-2067 

#56-2104 

#56-2130 

#62-2222 

#67-2352 

#67-2380 

#77-2614 

#79-2706 

#109-3766 

#16-848 

#145-4802 

147-4842 

147-4847 

147-4852 

147-4857 

147-4862 

#151-4953 

#147-4843 


31-1374 

52-2040 

44-1766 

29-1289 

50-1911 


58-2155 

145-4806 

147-4858 


54-2067 

56-2104 

56-2130 

62-2222 

67-2352 

67-2380 

77-2614 

79-2706 

109-3766 

16-848 

145-4802 

#147-4843 

#147-4848 

#147-4853 

#147-4858 

#147-4863 

#151-4959 

147-4843 


113-3882 

62-2222 


#54-207" 

#56-2110 

#56-2132 

#62-2230 

#67-2358 

#67-2381 

#77-2630 

#87-3057 

#109-3784 

16-848 

#145-4803 

147-4843 

147-4848 

147-4853 

147-4858 

147-4863 

151-4959 

#147-4852 


113-3883 

62-2230 


#147-4866 

147-4862 


147-4866 


2 


SEO US 


54-2070 #54-2071 

56-2110 #56-2113 

5o-2132 #58-2155 

62-2230 #62-2232 

67-2358 #67-2368 

67-2381 #71-2441 

77-2630 #77-2632 

87-3057 #87-3116 

109-3784 #113-3882 


54-2071 #54-2072 

56-2113 #56-2124 

58-2155 #58-2157 

62-2232 #64-2272 

67-2368 #67-2369 

71-2441 #73-2544 

77-2632 #77-2682 

87-3116 #89-3150 

113-3882 #113-3883 


54-2072 

56-2124 

58-2157 

64-2272 


67-2369 

73-2544 


77-2682 

89-3150 


113-3883 


145-4803 

#147-4844 

#147-4849 

#147-4854 

#147-4859 

#147-4864 


#77-2632 

#145-4804 

147-4844 

147-4849 

147-4854 

147-4859 

147-4864 


77-2632 

145-4804 

#147-4845 

#147-4850 

#147-4855 

#147-4860 

#147-4865 


#77-2632 

#145-4806 

147-4845 

147-4850 

147-4855 

147-4860 

147-4865 


77-2632 

#145-4806 

#147-4846 

#147-4851 

#147-4856 

#147-4861 

#147-4866 


147-4852 #147-4858 147-4858 #147-4862 147-4862 



